Visual Basic - error ODBC de access con Windos 7

hola amigos como estan , espero me puedan ayudar
es lo siguiente yo tengo una aplicacion contable realizado con vb6 y microsost access 2003 , trabajo con datareport, mi apliacion funciona bien en winxp, windows vista, un cliente tiene windows 7 , yo instale mi programa y funciona, pero se me presenta un incoveniente cuando genero los reportes , cuando se genere por primeras funciona , cuando intento generar nuevamente me sale este error
error -2147217900 en tiempo de ejecucion
microsoft controlador ODBC microsoft Access instruccion SQl no valida; se esperaba DELETE, INSERT, PROCEDURE, SELECT o UPDATE.
yo cargo los datos en una tabla auxiliar y luego encadeno el datareport con esa tabla
abro la conexion , ejecuto el dataenviroment y el comando que es una instruccion SQL en la tabla auxiliar
este es el codigo
On Error GoTo B
DataAux.Conexion.ConnectionString = MiConexion
A:
DataAux.Conexion.Open
DataAux.CmdCO40SN NombreUsuario
If Check1.Value = 1 Then
ReporteCO40SinNit.Sections(2).Controls("Etiqueta22").Caption = "POR AGENCIA"
ReporteCO40SinNit.Sections(2).Controls("Etiqueta1").Caption = "MOVIMIENTO DETALLADO AGENCIA POR CUENTA SIN NITS-TERCERO CON FECHA DE CORTE"
Else
ReporteCO40SinNit.Sections(2).Controls("Etiqueta22").Caption = TitCentro
ReporteCO40SinNit.Sections(2).Controls("Etiqueta1").Caption = "MOVIMIENTO DETALLADO CENTRO DE COSTO POR CUENTA SIN NITS-TERCERO"
End If
ReporteCO40SinNit.Sections(2).Controls("Etiqueta23").Caption = "AGENCIA : " & TxtAgIni & " - " & TxtAgFin
ReporteCO40SinNit.Title = NombreEmp & " " & "Periodo : " & FechaIni & " A " & FechaFin
ReporteCO40SinNit.Show
Screen.MousePointer = 0
Exit Sub
B:
DataAux.Conexion.Close
GoTo A
End If

gracias de antemano

David Gonzalez