再次请教一个添加记录的问题

Question

Private Sub Command1_Click()
Dim conn As ADODB.Connection 
Dim rs As ADODB.Recordset 
Set conn = New ADODB.Connection 
conn.Open "driver={Microsoft Access Driver (*.mdb)};pwd=mima;dbq=" & App.Path & "\db1.mdb"
rs.Open "select * from ３", conn, adOpenDynamic, adLockOptimisticrs
rs.AddNew
rs!姓名 = "xxxxxxx"
rs!性别 = "ssssss"
rs.Update
MsgBox "yes"
End Sub
运行后报错：实时错误＂91"
对象变量或with块变量未设置
请问究竟该怎么办?求求各位大虾

Answer 1

Dim rs As ADODB.Recordset 要加一个NEW呀.Dim rs As new ADODB.Recordset

Answer 2

set rs = new ADODB.Recordset

Answer 3

set rs =new adodb.recordset