Hello
I have the next code for print a report using Cristal Report. in Visual Basic

Private Sub cmdimpresion_Click()
Dim sql As String
Dim lvstrsql As Recordset


Set lvstrsql = base.OpenRecordset("SELECT vehiculos.[CIUDAD], vehiculos.[PLACA], vehiculos.[CONDUCTOR], vehiculos.[FECHA], vehiculos.[MARCA], vehiculos.[MODELO], vehiculos.[COLORCABINA], vehiculos.[TOTALEJES], vehiculos.[REPOTENCIADO], vehiculos.[MODELOANTERIOR], vehiculos.[TARJETAPROPIEDAD], vehiculos.[NUMEROMOTOR], vehiculos.[NUMEROCHASIS], vehiculos.[SERIE], vehiculos.[REGISTROCARGA], vehiculos.[SEÑALESCABINA], vehiculos.[PESOCABEZOTE], vehiculos.[PESOTOTAL], vehiculos.[CAPACIDAD], vehiculos.[VALOR], vehiculos.[PORCENTAPROPIEDAD], vehiculos.[PLACATRAILER], vehiculos.[CHASISTRAILER], vehiculos.[MARCATRAILER], vehiculos.[COLORCARROCERIA], vehiculos.[COLORTRAILER], vehiculos.[SEÑALESTRAILER], vehiculos.[SEÑALESCARROCERIA], vehiculos.[LARGO], vehiculos.[ANCHO], vehiculos.[ALTO], vehiculos.[VOLUMEN], vehiculos.[VALORTRAILER], vehiculos.[PORCENTRAILER], vehiculos.[PROPIETARIOREAL], vehiculos.[CEDULAPROPIETARIO], vehiculos.[CELULARPROPIETARIO], vehiculos.[DIRECCIONPROPIETARIO]," & _
" vehiculos.[CIUDADPROPIETARIO], vehiculos.[BARRIOPROPIETARIO], vehiculos.[TELEFONOPROPIETARIO ], VEHICULOS.[POSEEDORINSCRITO], VEHICULOS.[CEDULAPOSEEDOR], VEHICULOS.[CELULARPOSEEDOR], VEHICULOS.[DIRECCIONPOSEEDOR], VEHICULOS.[CIUDADPOSEEDOR], VEHICULOS.[BARRIOPOSEEDOR], VEHICULOS.[TELEFONOPOSEEDOR], VEHICULOS.[CONDUCTORPPAL], VEHICULOS.[CEDULACONDUCTOR], VEHICULOS.[CELULARCONDUCTOR], VEHICULOS.[DIRECCIONCONDUCTOR], VEHICULOS.[CIUDADCONDUCTOR], VEHICULOS.[BARRIOCONDUCTOR], VEHICULOS.[TELEFONOCONDUCTOR], VEHICULOS.[RELEVO1], VEHICULOS.[CEDULAREL1], VEHICULOS.[CELULARREL1], VEHICULOS.[DIRECCIONREL1], VEHICULOS.[TELEFONOREL1], VEHICULOS.[RELEVO2], VEHICULOS.[CEDULAREL2], VEHICULOS.[CELULARREL2], VEHICULOS.[DIRECCIONREL2], VEHICULOS.[TELEFONOREL2], VEHICULOS.[tipo_vehiculo], VEHICULOS.[tipo_carroceria], VEHICULOS.tipo_combustible From VEHICULOS VEHICULOS where placa = " & cmbplacavehic.Text, dbOpenSnapshot)

sql = "{placa} =" & cmbplacavehic.Text
crplis4.PrinterSelect
crplis4.ReportFileName = "c:\colocar\imprevehi1.rpt"
crplis4.SelectionFormula = sql
crplis4.Action = 1
crplis4.Reset
End Sub

But when I run the aplication appear the error 3061 too few parameters. Expected 1.
I made a review of the fields and this is OK, How can you help me?