ADO對象的基本數(shù)據(jù)庫操作，添加記錄表PHONEBOOK有三個文本字段組成。窗體設(shè)置三個Label,三個TexBox,兩個命令按鈕。源程序如下：Dim cnnDB As ADODB.ConnectionDim RS As ADODB.RecordsetPrivate Sub cmdClose_Click() Unload MeEnd SubPrivate Sub cmdOK_Click() With RS .AddNew ‘運行時該語句報錯 .Fields("Name") = txtName.Text .Fields("Phone") = txtName.Text .Fields("Memo") = txtName.Text .Update End With txtName.Text = "" txtPhone.Text = "" txtMemo.Text = "" cmdOK.Enabled = False End SubPrivate Sub Form_Load() Set cnnDB = New ADODB.Connection Set RS = New ADODB.Recordset RS.LockType = adLockBatchOptimistic cnnDB.Open "Provider = Microsoft.Jet.OLEDB.3.51;Data Source=" + App.Path + "\EX-DAO\ b" RS.Open "PhoneBook", cnnDB, adOpenDynamic cmdOK.Enabled = False End SubPrivate Sub Form_Unload(Cancel As Integer) RS.Close cnnDB.Close Set RS = Nothing Set cnnDB = Nothing End SubPrivate Sub txtName_Change() If Trim(txtName.Text) <> "" And Trim(txtPhone.Text) <> "" Then cmdOK.Enabled = True Else cmdOK.Enabled = False End IfEnd SubPrivate Sub txtPhone_Change() If Trim(txtName.Text) <> "" And Trim(txtPhone.Text) <> "" Then cmdOK.Enabled = True Else cmdOK.Enabled = False End IfEnd Sub不能正常運行