обьясните, пожалуйста, чего здесь не того?
Dim StrSQL As String
'* = AVTO.GNOMER, AVTO.MARKA_AVTO, AVTO.DRIVER,AVTO.AVANS, AVTO.DATE, AVTO.GAZOLINE, AVTO.[PRIC E_FOR_LITTER],AVTO.COL_OF_GAZOLINE, AVTO.DATE_OF_PRICE, AVTO.SVA, AVTO.TBS, AVTO.PERSONAL , AVTO.OPT, AVTO.AKVA, AVTO.TD, AVTO.TREIDING
StrSQL = "SELECT * FROM AVTO WHERE "
MsgBox ((StrSQL))
If Me.SVA.Value <> 0 Then
StrSQL = (StrSQL & (" AVTO.SVA = " * " & Forms!AVTO!SVA & " * ""))
MsgBox Err.Description
End If

2 mahoune... уже доковыряли.....не боись...))