adodc.connectionstring怎样在程序加载时进行设置，这样错在哪呢？
Private Sub Form_Load()adodc1.ConnectionString=("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\侯立丹文件 _
\access\实验室管理程序\实验室人员信息.mdb;Persist Security Info=False")
End Sub
这样写怎么会出现，语句错误呢，中间语句是不是有那个地方格式不对啊，帮帮忙，谢谢 --------------------编程问答-------------------- 给你介绍一种新的方法，使用ADO对象编程，比控件好用：
http://download.csdn.net/source/1498324 --------------------编程问答-------------------- adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\侯立丹文件" & _
"\access\实验室管理程序\实验室人员信息.mdb;Persist Security Info=False"
--------------------编程问答-------------------- 你那句没写错,错误可能出在别处.
断点看看错误出现的地方,多贴点代码. --------------------编程问答--------------------
。。。仔细 --------------------编程问答-------------------- Private Sub CmdLogin_Click()
'On Error Resume Next
'Dim myobject As Object
'Set myobject = Adodc1
If 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 If
End Sub
Private Sub CmdQuit_Click()
Dim i As Byte
i = MsgBox("你确定要退出登录？", vbYesNo, "退出")
If i = vbYes Then
Unload Me
End If
End Sub
Private 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
行出现断点了就，请教各位帮帮忙，分析一下究竟是怎么回事。非常感谢！ --------------------编程问答-------------------- 在Form_Load 加一句
Adodc1.RecordSource ="select * from 表名" --------------------编程问答-------------------- Adodc1.Refresh'加这句
If Adodc1.Recordset.RecordCount <> 0 Then --------------------编程问答-------------------- 别用绑定，特别刚开始学就更别用........
补充：VB , 基础类
