provo a rigirarti il tuo esempio:

Private Sub Command1_Click()
'Ricerca un nome all'interno dell'agenda.
Dim NomeDaCercare As String
Dim Stringa as String
NomeDaCercare = InputBox$("Immettere l'ID Player da ricercare:", "Ricerca nel campo")
If NomeDaCercare <> "" Then
'Esegue la ricerca solo se è stato immesso un nome.
Stringa="Select * From Tabella Where playerid=""" & NomeDaCercare & """"
Set Data1 = db.OpenRecordset(Stringa, dbOpenDynaset)
if Data1.Eof then
'Il nome cercato non è stato trovato.
MsgBox "Nome non trovato.", vbInformation, Me.Caption
End If
End If
End Sub