Forse c'è l'ho fatta



Aggiungendo
codice:
...
On Error GoTo ErrFas

If Text2 <> "0" Then
 'sSearch = "select * from Comuni where ID = " & Text2 & ""
sSearch = "select * from Comuni where Comune like '*" & Replace(Text2, "'", "''") & "*'"
Set Db = OpenDatabase(App.Path & "\Cap.mdb", False, False)
Set Rs = Db.OpenRecordset(sSearch)
Set Data2.Recordset = Rs

Comune1 = Rs!Comune
Provincia1 = Rs!Provincia
Prefisso1 = Rs!Prefisso
Capoluogo1 = Rs!Capoluogo
Catastale1 = Rs!Catastale
Cap1 = Rs!Cap
Else

Comune = ";-))"

End If

ErrFas:

Text1 = [Text1] + 1
....

:metallica