Problemas con sql

Estoy iniciando en el lenguaje visual basic. Tengo una duda al momento de querer utilizar sql.
Quiero realizar una consulta con los siguientes datos.
Private Sub BotonAsientos_Click()
Dim BaseDeDatos As Database
Dim Tarifa01 As Recordset
Marca = AuxCveMar.Value
Origen = AuxCveOri.Text
Destino = AuxCveDes.Text
Hora = Val(AuxCveHor.Text)
Dia = AuxCveDia.Value
Mes = AuxCveMes.Value
Ao = AuxCveAo.Value
Set ArcVtaTurno = OpenDatabase "c:\VentaPC\BDVentas.mdb")
Set ArcVtaTurno = OpenDatabase "c:\VentaPC\BDVentas.mdb")
Set Tarifa01 = ArcVtaTurno.OpenRecordset("SELECT * FROM VTVTATURNO WHERE TUORICOR = Origen AND TUDESCOR = Destino")
End Sub
Al momento de ejecutar el formulario me manda el siguiente mensaje:
Error 3061 en tiempo de ejecución:
Pocos parámetros se esperaban 2
Agradezco de antemano tu valiosa ayuda.
Saludos
Alberto Rosas
1

1 Respuesta

63.725 pts.
¿Puedes detallar el tipo de dato de los campos?
¿Qué datos, ejemplos, guarda origen y destino?
Si los campos son alfanuméricos, texto:
("SELECT * FROM VTVTATURNO WHERE TUORICOR ='" & Origen & "' AND TUDESCOR ='" & Destino & "'")
Si los campos son fecha:
("SELECT * FROM VTVTATURNO WHERE TUORICOR =#" & Origen & "# AND TUDESCOR =#" & Destino & "#")
Si los campos son numericos:
("SELECT * FROM VTVTATURNO WHERE TUORICOR =" & Origen & " AND TUDESCOR =" & Destino)

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas