Mi connetto si al DB!!!!!!!!! Anche perchè altrimenti non funzionerebbe comunque se togliessi quelle poche righe di codice che mi danno il problema.

Ma che devo fare, te lo devo postare tutto tutto il codice?? E' abb lunghetto!!
Provo a postare solo il codice necessario:

Option Explicit
Public db As Database
Public rs As Recordset

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

'Bottone che scrolla il DB in giu'

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

'Bottone che scrolla il DB in su
Private Sub Down_Click()
' la prossima riga di codice viene segnalata nel debug
If rs.BOF = 0 Then
rs.MovePrevious
'se è una riga vuota torna al primo recordset
If rs.BOF Then
rs.MoveLast
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



Posto pure il bottone che aggiunge i Record ma non credo che sia indispensabile:


Private Sub Add_Click()
If Nome.Text = "" Then
Exit Sub
End If
With rs
.AddNew
'Aggiunge i dati nel DB
!Nome = Nome.Text
!Cognome = Cognome.Text
!Indirizzo = Indirizzo.Text
!Telefono = Telefono.Text
!Email = Email.Text
!Note = Note.Text
.Update
.Close
MsgBox "Il nuovo contatto è stato aggiunto", vbOKOnly + vbInformation, "Information"
'Svuota tutti i campi
Nome.Text = ""
Cognome.Text = ""
Indirizzo.Text = ""
Telefono.Text = ""
Email.Text = ""
Note.Text = ""
End With
Call Form_Load
End Sub


Metto pure il codice del tasto di ricerca:


Private Sub Search_Click()
On Error GoTo handle
Set rs = db.OpenRecordset("SELECT * FROM Campi WHERE Nome ='" & Trova.Text & "' OR Cognome = '" & Trova.Text & "' OR Telefono = '" & Trova.Text & "' OR Email = '" & Trova.Text & "' OR Note = '" & Trova.Text & "'", dbOpenDynaset)


Nome.Text = rs!Nome
Cognome.Text = rs!Cognome
Indirizzo.Text = rs!Indirizzo
Telefono.Text = rs!Telefono
Email.Text = rs!Email
Note.Text = rs!Note

rs.Close
Call Form_Load

handle:
Select Case Err.Number
Case 3021
MsgBox "Non esiste nessun contatto: " & Trova.Text
End Select
Trova.Text = ""
End Sub


Il resto del codice non c'entra niente con il problema che mi da. Spero che ora qualcuno mi sappia aiutare perchè devo risolvere assolutamente quel problema

Grazie

Gigi