实时错误'-2147217887(80040e21)'字段太小而不能接受所要添加的数据的数量。试着插入或粘贴较少的数据

Question

实时错误'-2147217887(80040e21)'字段太小而不能接受所要添加的数据的数量。试着插入或粘贴较少的数据
这个错误该怎么改呢？请高手指教出错的这段代码：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)这一句时提示这个错误，但是我在数据库里把字段长度都改的很长了还是不行。麻烦高手指教

Answer 1

可能是"select *"中返回的字段顺序与你用rs.fields(index)这种方式的顺序不匹配造成的，一种解决方法是用Select查询时显示的规定字段返回的顺序，比如把sql语句改成"select id,name,type,cardno………… from readers …………"另一种方法是在给字段赋值时不用字段索引而使用字段名称，比如将rs.fields(0)改成rs.fields("id")