请问有哪位高手知道怎么让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