关于ADO控件访问Access数据库的问题！

Question

我在登录窗口中写如下代码：
 Dim cnData As New ADODB.Connection
 Dim rs As New ADODB.Recordset
    
 Dim sql, username, pwd As String
 sql = "select * from users where username='" & username & "'" & "and  pwd='" & pwd & "'"
 
cnData.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
             "Data Source=E:\database\system.mdb"
cnData.Open
rs.Open sql, cnData, adOpenDynamic, adLockReadOnly, adCmdText
成功了！
但在引用了Microsoft ADO Data Control 6.0 (ole)后，在窗口中添加了个ADO控件，在其属性中的“连接资源”中选择“使用连接字符串”，接着在“提供程序”中选择“Provider=Microsoft.Jet.OLEDB.4.0”，在“连接中”选择数据库“system”,当测试时，却告诉我出错：说初始化朝代程序时发生错误。0x80040e4d!
  不知道为什么？
  请高手指点迷津？

Answer 1

请试一下以下代码看看：
Dim cnData As New ADODB.Connection
 Dim rs As New ADODB.Recordset
    
 Dim sql, username, pwd As String
cndata.cursorlocation=aduseclient
 sql = "select * from users where username='" & username & "'" & "and  pwd='" & pwd & "'"
 
cnData.open"Provider=Microsoft.Jet.OLEDB.4.0;" & _
             "Data Source=E:\database\system.mdb"
rs.Open "system.mdb",sql, cnData, adOpenDynamic, adLockReadOnly, adCmdText
我是刚刚才学习VB的，我在参考书看到有用ADO的代码，不懂对你有没有帮助，欢迎与我讨论，我的QQ是23685483，记得要加附加信息为VB讨论，要不通不过我的验证的