蝶式油水分离器:实时错误'91'对象变量或With块变量未设置

来源：百度文库 编辑：杭州交通信息网 时间：2024/05/04 19:16:56
编了个录入查询系统,vb6+access
运行到一段时提示错误,请高手帮忙看看

Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Form_Load()

'确定strsql查询语句

Dim strsql As String
strsql = "select * from DSJ where 条形码=" & CInt(frmtvsearch.DataGrid1.Columns(1).Value) & ""

'建立同服务器的连接
Adodc1.CommandType = adCmdText
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\tv.mdb;Persist Security Info=False"
Adodc1.RecordSource = strsql
Adodc1.Refresh

Text1.Text = Adodc1.Recordset.Fields(0).Value & ""
Text2.Text = Adodc1.Recordset.Fields(1).Value & ""
...
...

高手帮忙看看这段程序，急，在线等
实时错误'91'对象变量或With块变量未设置 为什么 实时错误'91': 对象变量或With块变量未设置 实时错误'91'对象变量或with块变量未设置(在线等) 实时错误'91'对象变量或With块变量未设置 实时错误'91'对象变量或With块变量未设置 在光盘运行代码。老是出现实时错误'91'对象变量或With块变量未设置,错误点在Do While Not mrc.EOF 实时错误91；对象变量或with块变量未设置 VB实时错误'424'要求对象 运行时错误\\\'91\\\': 未设置对象变量或With block变量 用虚拟光区时提示 运行时错误'91' 未设置对象变量或WITH BLOCK变量