Vb6 运行时错误'；91'；向记录集添加数据时

我想在VB6中向数据库中插入一些信息，但出现运行时错误“91”。 我的代码：

---

调试程序在以下位置显示错误：

Adodc.Recordset.AddNew

您还没有发布关于Adhoc1变量创建位置的其余代码等

这表明记录集在使用之前尚未初始化，但如果没有代码，则很难更具体。

运行时错误“91”，这是一种稍微令人困惑的方式，可以说您的变量不包含任何内容

---

您可能忘记正确初始化

Adodc1

，或者更可能的是，您需要将

Adodc1.RecordSet

初始化为一些有用的东西（例如

Set Adodc1.RecordSet=New RecordSet

或相关的），然后才能使用它。

通过发布代码的方式，我相信您将填充一个记录集以插入数据库。尝试如下：

sub btn_click()
    dim Adodc1 as adodb.recordset

    set Adodc1 = new adodb.recordset

    Fname = txtFname.text

    Rs.Fields.Append "Fname", adVarChar, 20     'adVarChar = text, followed by the amount of characters

    Adodc1.open()

    Adodc1.Recordset.AddNew
    Adodc1.Recordset.Fields("Fname") = Fname
    Adodc1.Recordset.Update
End sub

---

我编辑了你的文章，使它更具可读性。我做出的一个判断是将Adodc1.Recordset.Fields（“Fname”）=Fname写成一行，而不是原来的两行。我认为这是您的原始代码，在复制粘贴错误拆分行之前，但请验证这一点。

sub btn_click()
    dim Adodc1 as adodb.recordset

    set Adodc1 = new adodb.recordset

    Fname = txtFname.text

    Rs.Fields.Append "Fname", adVarChar, 20     'adVarChar = text, followed by the amount of characters

    Adodc1.open()

    Adodc1.Recordset.AddNew
    Adodc1.Recordset.Fields("Fname") = Fname
    Adodc1.Recordset.Update
End sub