Private Sub Command1_Click()

Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Adodc1.Recordset.AddNew
End Sub

Private Sub Form_Load()
Dim rs As New ADODB.Recordset
Dim conn As New ADODB.Connection
conn.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\hello.mdb;Persist Security Info=False"
rs.Open "select * from hello", conn, 3, 2

End Sub
**********************************************************************************************
我只想实现一个比较简单的过程,可是用Adodc1.Recordset.AddNew向库中插值会报错
对象变量或With块未设置
是怎么回事啊?
**********************************************************************************************

不太明白,麻烦指点一下吧,谢啦