SoloCodigo

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