Allora io mi connetto ad un database (che tra l'altro è in formato access '97 perchè il nuovo non lo riconosce) all'inizio va tutto bene poi però quando richiamo "Case "sfogliaavanti"" ricevo un'errore


codice:
    Dim sqlstring As String
    Dim Db As Database
    Dim Rs As Recordset


    Set Db = OpenDatabase(App.Path & "\db.mdb", False, False)
    Set Rs = Db.OpenRecordset("link")
    
    id = Rs.RecordCount
    autore = (Rs.Fields("autore"))
    descrizione = (Rs.Fields("descrizione"))
    url = (Rs.Fields("url"))
    foto = (Rs.Fields("foto"))
poi più avanti o questo

codice:
            Case "sfogliaavanti"

                Rs.MoveNext

                If Rs.EOF Then
                Rs.MoveFirst
                End If

                
                id = (Rs.Fields("id"))
                autore = (Rs.Fields("autore"))
                descrizione = (Rs.Fields("descrizione"))
                url = (Rs.Fields("url"))
                foto = (Rs.Fields("foto"))

            End Select
e qui mi da errore nella parte in grassetto e dice "Necessario Oggetto"

perchè??

qualche buona anima mi aiuta per favore

grazie mille