请高手指点

我用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