运行时错误91:链接VB6和MS access时未设置对象变量或with block变量

当我运行给定的原始代码时，下面一行中的错误显示为“运行时错误91”

原始代码

Dim con As ADODB.Connection
Dim rs As ADODB.Recordset

Private Sub SUBMIT_Click()
con.Open "Provider=Microsoft.Jet.4.0;Data Source=C:\Documents and Settings\XPMUser\Desktop\New Folder\prac1.mdb; Persist Security Info = False"
rs.Open "select DBTB1 from prac1", con, adOpenDynamic, adLockPessimistic

rs.Fields("NUMBER").Value = Text1.Text
rs.Fields("NAME").Value = Text2.Text
rs.Fields("CITY").Value = Text3.Text
MsgBox "data saved!", vbInformation
rs.Update

End Sub

---

您收到错误91，因为您尚未实际创建连接对象。此外，您将在记录集中得到相同的错误。我已更新了您的代码以允许其工作：

Private Sub SUBMIT_Click()
   Set con = New ADODB.Connection
   con.Open "Provider=Microsoft.Jet.4.0;Data Source=C:\Documents and Settings\XPMUser\Desktop\New Folder\prac1.mdb; Persist Security Info = False"
   Set rs = New ADODB.Recordset
   rs.Open "select DBTB1 from prac1", con, adOpenDynamic, adLockPessimistic

   rs.AddNew
   rs.fields("NUMBER").value = Text1.Text
   rs.fields("NAME").value = Text2.Text
   rs.fields("CITY").value = Text3.Text
   rs.Update
   MsgBox "data saved!", vbInformation
End Sub

另外，请注意在更新数据库之前添加了

AddNew

。

您没有“链接”任何内容，这里根本不涉及MS Access。用词不当无助于找到解决方案。

Private Sub SUBMIT_Click()
   Set con = New ADODB.Connection
   con.Open "Provider=Microsoft.Jet.4.0;Data Source=C:\Documents and Settings\XPMUser\Desktop\New Folder\prac1.mdb; Persist Security Info = False"
   Set rs = New ADODB.Recordset
   rs.Open "select DBTB1 from prac1", con, adOpenDynamic, adLockPessimistic

   rs.AddNew
   rs.fields("NUMBER").value = Text1.Text
   rs.fields("NAME").value = Text2.Text
   rs.fields("CITY").value = Text3.Text
   rs.Update
   MsgBox "data saved!", vbInformation
End Sub