oh signore mio... ho scritto un abominio...
perdonami, ma ieri ero cotta... ecco, scrivi così:
codice:
Set RecTM1 = New ADODB.Recordset
  RecTM1.Open "SELECT * FROM vie where UCase(via) = 
              '" & UCase(Cinser) & "';", 
              DatDb1, adOpenStatic, adLockOptimistic
ho scritto "As via" nella clausola Where... come diavolo mi sarà venuto in mente...

...e buona giornata!
scusa ancora per l'imperdonabile distrazione...:tongue: