Salve ragazzi, sto implementando un'applicazione che gestisce la ricerca di un codice (Codice EAN) su un database Access 2000.

Dopo aver impostato l'oggetto Data1 e rispettato tutti i collegamenti delle textbox a tutti i campi del DB ho disegnato un pulsante "Cerca codice":

Private Sub Command1_Click()
'Ricerca del codice nel database.
Dim EANDaCercare As String
EANDaCercare = InputBox$("Immettere il codice da ricercare:",
"Ricerca nel DataBase")
If EANDaCercare <> "" Then
'Esegue la ricerca solo se è stato immesso un nome.
'CodiceEan = Campo del codice, stringa di 32 char
Data1.Recordset.Index = "CodiceEan"
Data1.Recordset.Seek "=", EANDaCercare
If Data1.Recordset.NoMatch Then
Data1.Recordset.MoveFirst
Data1.Refresh
'Il codice cercato non è stato trovato.
MsgBox "Codice non trovato.", vbInformation, Me.Caption
End If
End If
End Sub

Il problema è che ogni ricerca, dp aver immesso il codice (ESISTENTE nel DB), VB mi restituisce puntualmente l'errore: "Nessun record corrente" e successivamente "Codice non trovato".

Avete qualche idea per risolvere il problema?

Grazie