Question

要求对象错误 vb access

在VB中编程
用Access建了数据库
但是中间的查找模块出现了问题
显示要求对象
老师就给我们十天让我们自学vb然后做出应用程序
急求帮忙！、
代码如下
Private Sub Command5_Click() 显示要求对象的时候 这一行竟然变黄了
Find = Text1.Text
rs.Recordset.MoveFirst
rs.Find ("编号=" & Find & "")
Text4.Text = rs.Fields("餐点名称")
End Sub
Private Sub Form_Load()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
constr = "Provider=Microsoft.Jet.OLEDB.4.0;Data?Source=d:\短学期课程设计资料\新 订餐.mdb"
End Sub
如果我描述的不够详细 我可以再回复 在线等！　谢谢大神们了！

Answer 1

1、你的cn、rs不是全局变量，而是在Form_Load过程中声明的局部变量，到了其他过程中（比如Command5_Click）中就无效了
2、cn、rs并没有与数据库和数据表建立连接
3、连接字串有错误

追问

我又自己改了下  中间的没有问题的我就省略了

追答

Private Sub Form_Load()
cn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\短学期课程设计资料\新 订餐.mdb"
rs.open "表名",cn,1,1 '这个表名我不知道，你自己改，另外上面的文件名一定要对
End Sub

追问

按照您的改了以后出现了

未找到方法与数据成员 

这个form4的整个的代码 - -您看下到底是那里的问题 可能是数据库的 也不一定 麻烦您了

数据库是这个样子的

谢谢您了。