aspe'...
il campo numero è sicuramente numerico visto il nome esplicativo che gli hai dato...:gren:
ma è un long o un integer?
tu fai un filtro su un campo numerico passandogli una stringa, e poi metti una & in meno nella concatenazione del valore "apunto" da cercare, guarda:
codice:
Data3.RecordSource = "select * from prestazioni where " & _
             "numero = '" & _ 
              apunto & "'"
la sintassi corretta è questa:
codice:
Data3.RecordSource = "select * from prestazioni where " & _
      "numero = " & CLng(apunto) 'o CInt