SoloCodigo

HOLA A TODOS ESPERO Q ALGUIEN M PUEDA AYUDAR, ESTOY TRATANDO DE REALIZAR UNA CONSULTA POR FECHA A TRAVES DE UN DTPICKER Y M DA ERROR DE SINTAXIS DE LA CLAUSULA FROM Y EN VERDAD Q NO C COMO CORREGIRLO...
NO C SI ESTOY REALIZANDO BIEN LA CONSULTA...ESPERO Q ALGUIEN PUEDA HACER EL FAVOR DE AYUDARM...ESTE ES LA CONSULTA:


 Strconsord = "SELECT  ordentrab.ordtrab, ordentrab.fecha, " & _
    "ordentrab.tipomant, ordentrab.especi, ordentrab.ubica, " & _
    "ordentrab.grupo, ordentrab.fechapen, ordentrab.asigna, " & _
    "ordentrab.asigcod, ordentrab.asignomb, ordentrab.realizo, " & _
    "ordentrab.horaini, ordentrab.horafin, ordentrab.duracion, " & _
    "ordentrab.vale, ordentrab.comenta, ordentrab.penrea " & _
    "FROM ordentrab" & _
    "Where ordentrab.fechapen = " & CDate(Form5.DTPicker1.Value) & _
    " ORDER BY ordentrab.fechapen"

CONSORDEN.Open Strconsord, conexion, adOpenForwardOnly, adLockReadOnly


GRACIAS

HOLA YA C TRABAJAR BASICO EN DATA REPORT AHORA EL PROBLEMA ES CUANDO REALIZO UNA CONSULTA EN EL PROGRAMA DE UNA INFORMACION ESPECIFICA O DE VARIAS COMO HAGO PARA Q EN EL DATA REPORT APAREZCA SOLO LO Q CONSULTO...
LES AGREDECERIA ESTE OTRO GRAN FAVOR Y GRACIAS DE ANTEMANO [/size]            

POR FAVOR NECESITO UNA MANITO, ESTOY TRABAJANDO EN UNA CONSULTA EN SQL, LA CUAL SE REALIZA MEDIANTE
VARIOS LIST DONDE UNO ESCOJE EL O LOS CAMPOS Q C QUIEREN HACER LA CONSULTA Y ESTOS CAMPOS ESCOGIDOS
SON REFLEJADOS EN UN LIST GENERAL,EL PROBLEMA SE M PRESENTA CUANDO A TRAVES DE UN BOTOM QUIERO
HACERE LA CONSULTA Y ME DA UN ERRO 91,AQUI LES ENVIO EL CODIGO ESPERO Q ME AYUDEN GARCIAS DE
ANTEMANO....

Private Sub Command3_Click()
Dim Var As String
Dim VarSQL As String
Static var2 As String
Static varn As Integer

If List5.List(List5.ListIndex) = "CÉDULA DE IDENTIDAD" Then
Var = "EMPLEADO_CCS.CI"
End If
If List5.List(List5.ListIndex) = "CÓDIGO DE NOMINA" Then
Var = "EMPLEADO_CCS.CodNom"
End If
If List5.List(List5.ListIndex) = "APELLIDOS Y NOMBRES" Then
Var = "EMPLEADO_CCS.APENOM"
End If
If List5.List(List5.ListIndex) = "DESCRIPCION DEL CARGO" Then
Var = "EMPLEADO_CCS.DESCAR"
End If
If List5.List(List5.ListIndex) = "CÓDIGO DE CARGO" Then
Var = "EMPLEADO_CCS.CODCAR"
End If
If List5.List(List5.ListIndex) = "TIPO DE PERSONAL" Then
Var = "EMPLEADO_CCS.TIPPER"
End If
If List5.List(List5.ListIndex) = "SITUACIÓN DEL CARGO" Then
Var = "EMPLEADO_CCS.SITCAR"
End If
If List5.List(List5.ListIndex) = "FECHA DE INGRESO" Then
Var = "EMPLEADO_CCS.FCHING"
End If
If List5.List(List5.ListIndex) = "SEXO" Then
Var = "EMPLEADO_CCS.SEXO"
End If
If List5.List(List5.ListIndex) = "SINDICATO" Then
Var = "EMPLEADO_CCS.DIGSIN"
End If
If List5.List(List5.ListIndex) = "CAJA DE AHORRO" Then
Var = "EMPLEADO_CCS.DIGCAJ"
End If
If List5.List(List5.ListIndex) = "FECHA DE NACIMIENTO" Then
Var = "EMPLEADO_CCS.FCHNAC"
End If
If List5.List(List5.ListIndex) = "ESTADO CIVIL" Then
Var = "EMPLEADO_CCS.CIVIL"
End If

If Var "" And varn = 0 Then
varn = 1
var2 = Var
var2 = var2 & "," & Var
End If

VarSQL = "SELECT '" & var2 & "' AS Datos FROM EMPLEADO_CCS INNER JOIN
Detalles ON EMPLEADO_CCS.CI = Detalles.ci;"

'AQUI ES DONDE ME DA EL ERROR 91
rsUsers.Open VarSQL, cnAP, adOpenDynamic, adLockPessimistic, adLockReadOnly

Do While rsUsers.EOF = False
MsgBox rsUsers!Dato
rsUsers.MoveNext
Loop