Originariamente inviato da alchimista84
così? ma va in overflow!

Dim x As Integer


x = InputBox("")

query = "select nome as nome, località.località as località into newtab " _
& "from cliente, località, cap " _
& "where cliente.località = località.Id " _
& "and località.cap=cap.id " _
& "and cap.cap = " & x