Dim strSQL As String
Dim rst As Object 'ADODB.Recordset
Dim strConnect As String
Dim cnn As New ADODB.Connection
strConnect = "Provider=SQLOLEDB" _
& ";Persist Security Info=true" _
& ";Data Source=服务器地址" _
& ";User ID=登录名" _
& ";Password=密码" _
& ";Initial Catalog=数据库名称"
cnn.Open strConnect
strSQL = "Select * FROM [表名] Where [xxx]=" & SQLText(Me.xxx)
Set rst = OpenADORecordset(strSQL, , cnn)
Me![xxx] = rst![xxx]
......
End If
rst.Close
cnn.Close