mi da errore

codice:
Set RecTM1 = New ADODB.Recordset
  RecTM1.Open "SELECT * FROM vie where UCase(via) As via = 
              '" & UCase(Cinser) & "';", 
              DatDb1, adOpenStatic, adLockOptimistic


errore di sintassi(operatore mancante) nell'espressione della query ' Ucase(via)as via = 'VERONA".