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