Lettura delle tabelle di un database come recordset per mezzo delle librerie DAO da VB.NET

Ecco, anche l'apertura dei recordset e la loro rappresentazione presenta qualche differenza. I codici con il punto esclamativo non mi hanno funzionato.
E' comunque possibile fare ugualmente:

    Private Sub apri()
        Dim engine As DBEngine = New DBEngine
        Dim db As Database
        db = engine.OpenDatabase("C:\users\antonello\documents\anto.mdb")
        Dim rs As Recordset = db.OpenRecordset("pazienti")
        rs.MoveFirst()
        Do While Not rs.EOF

            MsgBox(rs.Fields("nome").Value)
            rs.MoveNext()
        Loop
    End Sub