Dim sql, mim, yongh, a As String
  Dim i As Double
  Dim rs As Recordset
  Dim curdb As Database
  Set curdb = CurrentDb
  DoCmd.SetWarnings False
  sql = ""
  sql = "SELECT * FROM LKJ "
  Set rs = curdb.OpenRecordset(sql)
  For i = 0 To rs.RecordCount
    a = rs.Fields(i).Value
    MsgBox a
  Next
  rs.Close
为什么循环第二次时报错：运行时错误‘3265’   这个集合中找不到此项目。
为什么rs.Fields(i,1).Value 不行