Bases de Datos - URGENTE ¡¡POR FAVOR¡¡ DATA

TENGO LOS CAMPOS A UN OBJETO DATA ENLAZADO A VARIOS TEXTBOX , CUANDO REALIZO UNA CONSULTA, ME DEVUELVE EL RESULTADO CORRECTO , PERO SOLO SE VISUALIZA UN REGISTRO, LOS DEMAS CAMPOS NO SE RELLENAN CON LA INFORMACION HASTA QUE PULSO SOBRE EL BOTONCITO DEL OBJETO DATA, ESO ME ESTA CREANDO UN GRAVE PROBLEMA¡'¡¡

POR FAVOR NECESITO AYUDA SOBRE ESTE PARTICULAR.

LA CONSULAT Q REALIZO ES ESTA

Dim busqueda As String
busqueda = (MaskEdBox1.Text)

Form1.Data1.RecordSource = "SELECT *FROM DATOSDENUNCIA WHERE DILIGENCIAS= '" & MaskEdBox1.Text & "'"
Form1.Data1.Refresh

gracias...me urge mucho la respuesta.¡¡