non funziona neanche con lo "0". Cmq hai ragione non è che si capiva molto... provo a spiegarmi meglio:

Ho il classico Form con le classiche textBox in cui ci sono Nome, Cognome, Indirizzo ecc ecc

Al Form_Load si connette al DB e mette nella ComboBox tutti i contatti presenti nel DB

Private Sub Form_Load()
'si collega al DB
Set db = OpenDatabase(App.Path & "\rubricadb.mdb")
With db
Set rs = .OpenRecordset("Campi")
End With
'mettendo il codice qui sotto mi crea problemi!!
Do While Not rs.EOF
Indice.AddItem rs!Nome
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
End Sub



Poi ho 2 bottoni che cliccandoli mi scorrono il database inserendo nei textBox del form i dati dei contatti presenti nel DB

Private Sub Down_Click()
' la prossima riga di codice viene segnalata nel debug
If rs.EOF = 0 Then
rs.MoveNext
'se è una riga vuota torna al primo recordset
If rs.EOF Then
rs.MoveFirst
End If
End If
Nome.Text = rs!Nome
Cognome.Text = rs!Cognome
Indirizzo.Text = rs!Indirizzo
Telefono.Text = rs!Telefono
Email.Text = rs!Email
Note.Text = rs!Note
End Sub


in pratica se non ometto il codice nel Form_Load Do While Not rs.EOF ecc, nel momento in cui premo il bottone per spostarmi nel DB mi genera l'errore di cui ho parlato nel primo post!!

Spero di essere stato chiaro stavolta

Grazie

Gigi