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
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