出错的这段代码：Private Sub readerInfoadd_Click() Dim rs As New ADODB.Recordset Dim sql As String sql = "select * from readers" Dim sql2 As String sql2 = "select * from readers where readerid = '" & readerID.Text & "'" If Trim(readerID.Text) = "" Or Trim(readerName.Text) = "" Or Trim(readerSex.Text) = "" Or _ Trim(readerType.Text) = "" Or Trim(idCardNO.Text) = "" Or Trim(department.Text) = "" Or _ Trim(readerEmail.Text) = "" Or Trim(readerPhone.Text) = "" Or Trim(readerEnroDTP.Value) = "" Or _ Trim(validDTP.Value) = "" Or Trim(readerOther.Text) = "" Then MsgBox "信息录入不能为空！", vbOKOnly Else Set rs = TransactSQL(sql2) If rs.EOF = flase Then MsgBox "该编号读者已经存在！", vbOKOnly rs.Close Else Set rs = TransactSQL(sql) rs.AddNew '添加新记录 rs.Fields(0) = Trim(readerID.Text) rs.Fields(1) = Trim(readerName.Text) rs.Fields(2) = Trim(readerType.Text) rs.Fields(3) = Trim(idCardNO.Text) rs.Fields(4) = Trim(department.Text) rs.Fields(5) = Trim(readerEmail.Text) rs.Fields(6) = Trim(readerPhone.Text) rs.Fields(7) = Trim(readerEnroDTP.Value) rs.Fields(8) = Trim(validDTP.Value) rs.Fields(9) = Trim(readerOther.Text) rs.Update MsgBox "读者添加成功！", vbOKOnly rs.Close End If End If End Sub 运行到 rs.Fields(2) = Trim(readerType.Text)这一句时提示这个错误，但是我在数据库里把字段长度都改的很长了还是不行。麻烦高手指教
