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
ma questa parte di codice è completa? non ti connetti al DB
prova a postare tutto.

Ps: nel Form_load ricordati di chiudre la connessione a DB che non si sa mai...