Vb 6.0

[Richard Lopez G]

Estimados.

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.

select r.*,isnull((selectTop 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((selectTop 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 NomArea_per = 'Sistemas'
and Estado_per ='Activo')r
OrderBy r.ApellidoPaterno, r.ApellidoMaterno;