(Resolved)Help!!!!

[jk9694]

Ok, I don't know if its just because im tired or what, but i can't seem to see why i am getting a loop without do error in the code below:

Set Db = OpenDatabase("C:\Program Files\AmateurLogBook\db2.mdb")
strSQL = "SELECT * From LogBook"
Set Rs = Db.OpenRecordset(strSQL, dbOpenDynaset)

Do While Not Rs.EOF
Set myitem = lvwLogBook.ListItems.Add(, , Str(intRecNum))
If Not IsNull(Rs("Date")) Then
myitem.SubItems(1) = Rs("Date")
End If
If Not IsNull(Rs("Call")) Then
myitem.SubItems(2) = Rs("Call")
End If
If Not IsNull(Rs("Power")) Then
myitem.SubItems(3) = Rs("Power")
End If
If Not IsNull(Rs("Sent")) Then
myitem.SubItems(4) = Rs("Sent")
End If
If Not IsNull(Rs("Received")) Then
myitem.SubItems(5) = Rs("Received")
End If
If Not IsNull(Rs("ContactTime")) Then
myitem.SubItems(6) = Rs("ContactTime")
End If
If Not IsNull(Rs("Freq")) Then
myitem.SubItems(7) = Rs("Freq")
End If
If Not IsNull(Rs("Mode")) Then
myitem.SubItems(8) = Rs("Mode")
End If
If Not IsNull(Rs("City")) Then
myitem.SubItems(9) = Rs("City")
End If
If Not IsNull(Rs("State")) Then
myitem.SubItems(10) = Rs("State")
End If
If Not IsNull(Rs("Country")) Then
myitem.SubItems(11) = Rs("Country")
End If
If Not IsNull(Rs("County")) Then
myitem.SubItems(12) = Rs("County")
If Not IsNull(Rs("Comments")) Then
myitem.SubItems(13) = Rs("Comments")
End If
intRecNum = intRecNum + 1
Rs.MoveNext
Loop
txtRecNumber.Text = Str(intRecNum)

End Sub

Please help me out here