Visual Basic - Ayuda Amigos estoy complicado !!!

Hola Amigos,
Estoy recien en Visual Basic y tengo problemas para mostrar un filtro de ciertos registros que cumplan una condicion, y ser mostrados en mshflexgrid, y no he podido encontrar el error.Este es el codigo echenle un ojo.
La variable PASA_NUMERO es de tipo PUBLIC (INTEGER) declarada en un modulo. El filtro deberia ser de acuerdo al valor de PASA_NUMERO pero arroja un error.

Private Sub Form_Load()
Dim S$
Dim NUMERO As Integer
NUMERO = Module1.PASA_NUMERO
Data1.DatabaseName = App.Path & "\RPTABLAS.MDB"
Data1.RecordSource = "SELECT SEMANA,PORCENTAJE,OBSERVACION FROM PRODUCCION WHERE TABLA =" & NUMERO
Data1.Refresh
S$ = "Semana |Porcentaje |Observaciones "
MSHFlexGrid1.FormatString = S$
End Sub

Este es el condigo, esto me tiene chato
Gracias de antemano ...
Saludos...

por que no lo intentas de esta forma:
num=trim(str(numero))
Data1.RecordSource = "SELECT SEMANA,PORCENTAJE,OBSERVACION FROM PRODUCCION WHERE TABLA =" + num

y vee si la propiedad recordsetype(del data1)=dynaset

espero que te sirva