fejl i opkobling til database

http://www.eksperten.dk/spm/3909

Jeg har på baggrund af ovenstående spørgsmål forsøgt at læse i min database.

Private Sub Vælg_Click()
    Dim db As Database
    Dim rs As Recordset
   
    Set db = OpenDatabase(\"C:\\Dokumenter\\SysUdv\\program\\SOFY_0_98.mdb\")
    Set rs = db.OpenRecordset(\"select * from Item\")
   
    If Not rs.EOF Then
        rs.MoveFirst
        Do While rs.EOF
            MsgBox \"Navn fundet : \" & rs!item_id & \" \" & rs!item_name
            rs.MoveNext
        Loop
    End If
End Sub

Problemet opstår ved linien:
    Set rs = db.OpenRecordset(\"select * from Item\")

Den påstår er der er en type mismatch

Jeg har tilføjet referencen DAO 3.6

Hva\' sker der !!!!!!!!

.. den frustrerede