adodc.connectionstring怎样在程序加载时进行设置，这样错在哪呢？

Question

Private Sub Form_Load()adodc1.ConnectionString=("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\侯立丹文件 _
\access\实验室管理程序\实验室人员信息.mdb;Persist Security Info=False")
End Sub
这样写怎么会出现，语句错误呢，中间语句是不是有那个地方格式不对啊，帮帮忙，谢谢

Answer 1

给你介绍一种新的方法，使用ADO对象编程，比控件好用：
http://download.csdn.net/source/1498324

Answer 2

adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\侯立丹文件" & _
"\access\实验室管理程序\实验室人员信息.mdb;Persist Security Info=False"

Answer 3

Private Sub CmdLogin_Click()
'On Error Resume Next
'Dim myobject As Object
'Set myobject = Adodc1If Adodc1.Recordset.RecordCount <> 0 Then
   Adodc1.Recordset.MoveFirst
   While Adodc1.Recordset.EOF = False
         If Adodc1.Recordset.Fields("姓名") = txtusername.Text Then
            If Adodc1.Recordset.Fields("密码") = txtuserpassword.Text Then
               Unload Me
               Exit Sub
               MsgBox "登录成功"
            Else
               MsgBox "你输入的口令不正确，请重新输入"
            End If
         Else
            Adodc1.Recordset.MoveNext
            
         End If
    Wend
    If Adodc1.Recordset.EOF = True Then
       MsgBox "请输入正确的用户名和口令"
    End If
Else
    MsgBox "没有任何用户可以登录"
End IfEnd SubPrivate Sub CmdQuit_Click()
Dim i As Byte
i = MsgBox("你确定要退出登录？", vbYesNo, "退出")
If i = vbYes Then
   Unload Me
End If
End SubPrivate Sub Form_Load()Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\侯立丹文件" & _
"\access\实验室管理程序\实验室人员信息.mdb;Persist Security Info=False"
End Sub
我几经建立了access数据库，也设置好了adodc1.connectionstring,和recordsource属性，怎么总是出现“对象变量或with块变量未设置”的错误呢，在If Adodc1.Recordset.RecordCount <> 0 Then
行出现断点了就，请教各位帮帮忙，分析一下究竟是怎么回事。非常感谢！

Answer 4

在Form_Load 加一句 
Adodc1.RecordSource ="select * from 表名"

Answer 5

Adodc1.Refresh'加这句 
If Adodc1.Recordset.RecordCount <> 0 Then