这个错误如何解决？？

我在编数据库时，写了如下代码：
Dim db As Database
Dim rs As RecordsetPrivate Sub Form_Load()
Dim sql As String
Dim irecord As StringSet db = OpenDatabase("f:\练习文档\b2b" + "\" + "book")
Set rs = db.OpenRecordset("books")
sql = "select * from books"Set rs = db.OpenRecordset(sql, dbOpenDynaset, dbConsistent)
Do While Not rs.EOF  For i = 0 To rs.RecordCount - 1
     irecord = rs!Title
     Print irecord
   rs.MoveNext
  Next i
 Loop
End Sub
执行到irecord = rs!Title时，报错：no current record。可是我的数据库表books里的title字段有数据。不知为什么？请大家帮帮忙！