AYUDA DATA

rivernike1
29 de Agosto del 2005
NECESITO EXTRAER UN UN REGISTRO DE LA BASE DE DATOS PERO QUIEREO QUE LA PEROSONA CONSULTE LA FECHA Y LUEGO BOTES LO RESULTADOS EJEMPLO;
Private Sub CmTotalEgresos_Click()
Data2.DatabaseName = App.Path & "DBGIMNASIO.mdb"
a = Data2.DatabaseName
a = "SELECT Sum(total_pagar) AS [Total Egresos Empleados] FROM Egresos"
Print a, "total de egresos"
End Sub
pero al momento de oprimir el boton no me trae el resultado, como hago
QUIEN ME PUEDE AYUDAR

mvallejos
29 de Agosto del 2005
No se entiende nada, explícate mejor

Saludos