ACCESS连接sql server 数据库
请问有哪位高手知道怎么让access窗体连接sql   server   数据库，可以进行增删改查的操作

------解决方案--------------------

Public Sub Test()
Dim strSQL As String
Dim Cnn As New ADODB.Connection
Dim Rst As New ADODB.Recordset

Cnn.ConnectionString = "DRIVER={SQL SERVER};SERVER=192.168.0.113;DATABASE=Test;UID=sa;PWD=000 "

Cnn.Open

'用记录集方式访问后台数据
strSQL = "select * from 表名 "
Rst.Open strSQL, Cnn, adOpenKeyset, adLockOptimistic
If Not Rst.EOF Then
MsgBox "记录数： " & Rst.RecordCount
End If

'追加数据
strSQL = "insert into 表名(字段1,字段2) values (1,2) "
Cnn.Execute strSQL

'删除数据
strSQL = "delete 表名 where 字段名=1 "
Cnn.Execute strSQL

'更新数据
strSQL = "update 表名 set 字段名 = 11 where 字段名=1 "
Cnn.Execute strSQL
End Sub