Vb 6.0

[delphi.com.ar]

Empezado por Richard Lopez G

Tengo mi Query que realizado en SQL server 2005 pero quiero ponerlo en mi codigo de VB 6.0 alguien me puede ayudar aqui le mando mi query y la imagen de mi pantalla donde quiero que valla mi query para filtrar.

Dim rs As New ADODB.Recordset
  rs.Open "select r.*,isnull((select Top 1 convert(varchar(30), [LogTime]) " & _
                             "from History as h " & _
                            "where [UserID]= r.FingerID " & _
                              "AND [FKey]='Entrada' " & _
                              "and [LogDate] ='2011/05/30'),'NO DIGITO HUELLA') Entrada," & _
                 "isnull((select Top 1 convert(varchar(30), [LogTime]) " & _
                          "from History as h " & _
                         "where [UserID]= r.FingerID " & _
                           "AND [FKey]='Salida' " & _
                           "and [LogDate] ='2011/05/30'),'NO DIGITO HUELLA') Salida" & _
          "FROM (SELECT [Cod_per] CodPers, [Cod_Finger] FingerID, [DNI_per] DNI, " & _
                       "[ApePat_per] ApellidoPaterno, [ApeMat_per] ApellidoMaterno, " & _
                       "[Nom_per] NombrePersonal " & _
                  "From T_Personal " & _
                 "where [NomProy_per] ='Nextel' " & _
                   "and Estado_per ='Activo') r " & _
        "Order By r.ApellidoPaterno, r.ApellidoMaterno", _
          modDataBase.dbMain, adOpenForwardOnly, adLockOptimistic

La pregunta es: ¿Qué quieres hacer con esa consulta?... ¿Mostrarla en una grilla?.. ¿Recorrerla "a mano"?...

PD: ¿No te parece que esa consulta puede resolverse de forma mas sencilla?

Saludos!