First, since you are referencing an mdb above, you should know that ADO  
code cannot interact directly with an mdb form's recordset, just with the  
underlying data.

Second, if you are using Access standalone, or on the front and back,  
there is no need for the detailed connection string; use  
CurrentProject.Connection as the Connection object:

Dim cnxn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cnxn = CurrentProject.Connection
Set rs = New ADODB.Recordset
With rs
    .Source = "select * from tblclaims"
    .Open , cnxn, adOpenForwardOnly, adLockReadOnly, adCmdText
     Do While Not .EOF

          ' Stuff

        .MoveNext
     Loop
   .Close
End With
Set rs = Nothing

Darryl Kerkeslager