Visual Basic para Aplicaciones - busqueda con dataEnvironment

estoy realizando una busqueda en varias tabl;as relacionadas, pero tomo a una solo para la busqueda ( por eso uso el DtaEnv) pero se para solamente en el primer registro, y no es el registro que se encuentra la empresa, como tal solo se queda el el primer recorset... aqui les va un pedaso del codigo para que lo vean

With EF.rsEFinancieros
.MoveFirst
.Find " [Empresa]= '" & Val(Me.Text1.Text) & "'"
Me.Hide
FillFields.FillFields
frmEstados.SSTab1.Tab = (1)
EF.rsEFinancieros.Requery

chao
If Me.Text1 = "" And .EOF Then
MsgBox " No exite ningun datos coincidente con el criterio de busqueda", vbOKCancel
' Me.Text1.SetFocus