vb 向sql server 2000 插入元组问题

Question

窗体代码:
Private Sub frmLogin_Load()
ado1.connectionstring = connectionstring
ado1.CommandType = adCmdText
ado1.CursorLocation = adUseClient
ado1.LockType = adLockPessimistic
ado1.RecordSource = "select * from QQ"
ado1.Refresh
End Sub
Private Sub cmdOK_Click()
ado1.Recordset.AddNew
ado1.Recordset.Fields("usename") = txtUserName.Text
ado1.Recordset.Fields("passward") = txtPassWard.Text
End Sub模块代码:
Public Function connectionstring() As String
connectionstring = "driver={sql server};server=20090710-1354;uid=sa;pwd=sa;database=mydb"
End Function
运行到Private Sub cmdOK_Click()　　ado1.Recordset.AddNew　时产生错误:　实时错误'４２４'　要求对象
请高手指点,看看哪里错了

Answer 1

gx啊，你设置VB的IDE要求变量声明之后再运行看看吧- -