Vb6 VB 6.0添加新记录引发错误对象变量或未设置块

我想在form load事件中将一条新记录添加到我的数据库中，也就是说，一旦我的表单加载，文本框将为空，这将允许用户输入信息，然后将其添加到数据库中。 但是，当我的代码是以下代码时：

Private Sub Form_Load()
Data1.Recordset.AddNew
End Sub

我一直收到一个错误：

运行时错误'91'；对象变量或未设置块。 我该怎么办

---

将代码放在表单_Initialize（）中

---

我想,；您需要将其更改为以下内容：

Private Sub Form_Load()
    Dim rs As ADODB.Recordset
    Set rs = Data1.Recordset

    rs.AddNew
    rs!Column1 = 1
    rs!Column2 = "test
    rs.Update

End Sub

---

现在，如果您在

Set rs=Data1.Recordset

上有错误消息，那么我们需要知道什么是

Data1

只需在

addnew

行之前添加

adodc1.refresh

。它会解决的

Private Sub Form_Load()
    Dim rs As ADODB.Recordset
    Set rs = Data1.Recordset

    rs.AddNew
    rs!Column1 = 1
    rs!Column2 = "test
    rs.Update

End Sub