请大侠看看

Question

我用vb编的添加数据库代码，没发现语法错误，就是添加不上，请大侠看看，数据库是offive2003的，代码如下：Private Sub Command1_Click()Dim cn As ADODB.ConnectionDim rs As ADODB.RecordsetDim sql As StringIf Trim(Text1.Text) = "" ThenMsgBox "字段不能为空", vbOKOnly + vbExclamation, "警告"End IfSet cn = New ADODB.Connectioncn.Open "provider=microsoft.jet.oledb.4.0;data source=d:db1.mdb;"sql = "select * from isd where id='" & Trim(Text1.Text) & "'"Set rs = New ADODB.Recordsetrs.Open sql, cn, adOpenForwardOnly, adLockBatchOptimisticIf rs.EOF Then'添加新纪录rs.AddNewrs("id") = Trim(Text1.Text)rs("sd") = Trim(Text2.Text)rs("df") = Trim(Text3.Text)rs.UpdateMsgBox "记录添加成功", vbOKOnly + vbInformation, "提示"Text1.Text = ""Text2.Text = ""Text3.Text = ""Text1.SetFocusElseMsgBox "纪录重复，请到修改面板修改", vbOKOnly + vbExclamation, "警告"Text1.Text = ""Text1.SetFocusEnd Ifrs.Closecn.CloseSet rs = NothingSet cn = NothingEnd Sub

Answer 1

rs.Open sql, cn, adOpenForwardOnly, adLockBatchOptimistic 
If rs.EOF Then 
    '添加新纪录 
    cn.execute "insert into isd(id,sd,df) values('"& text1.text &"','"& text2.text &"','"& text3.text &"')"
    MsgBox "记录添加成功", vbOKOnly + vbInformation, "提示" 
    Text1.Text = "" 
    Text2.Text = "" 
    Text3.Text = "" 
    Text1.SetFocus 
Else 
    MsgBox "纪录重复，请到修改面板修改", vbOKOnly + vbExclamation, "警告" 
    Text1.Text = "" 
    Text1.SetFocus 
End If 

Answer 2

添加新纪录 
rs.AddNew 
rs("id") = Trim(Text1.Text) 
rs("sd") = Trim(Text2.Text) 
rs("df") = Trim(Text3.Text) 
rs.Update 
rs.close
cn.close

Answer 3

看看这个：
http://download.csdn.net/source/1498324