gracias de todas formas ya lo resolvi usando lo suiguiente

Data1.RecordSource = "SELECT Historial.Maquina, Historial.Fecha, Historial.[Hora llegada], Historial.[Hora salida], Historial.[Total a pagar], Historial.Usuario FROM Historial WHERE Historial.Usuario = '" & nick & "';"

de esta forma le doy un valor a nick y aparece la consulta gracias de todas formas

oigan ocupo ayuda miren esta consulta sql

SELECT Historial.Maquina, Historial.Fecha, Historial.[Hora llegada], Historial.[Hora salida], Historial.[Total a pagar], Historial.Usuario
FROM Historial
WHERE Historial.Usuario = nick;

siendo nick una variable bueno en el gestor de base de datos no mas pongo el valor a nick y me hace la consulta

ahora como hago para darle valor a nick en visual basic 6.0 estoy como loco buscando eso y no lo hayo alguien sabe de esto?

uso el control Data