data report

[vhpc]

Hola que tal a todos amigos
Mi pregunta es la siguiente; Porque no me muestra los datos que pido, ya que el data report aparece en blanco no se que este sucediendo. Que estare haciendo mal su ayuda será muy valioza para mi gracias

Dim SQL As String
Dim Conn As New ADODB.Connection
Dim ADORS As New ADODB.Recordset
Dim PlantDatosGen As New DR_FDG
Dim Registro As String

Registro = Text3.Text
MsgBox Registro

Set Conn = New ADODB.Connection
Conn.ConnectionString = CONNECTION_STRING
Conn.ConnectionTimeout = 150
Conn.Open

Set ADORS = Conn.Execute("SELECT * FROM ContP WHERE NOMBRE like '*" & Registro & "*'")
Set PlantDatosGen .DataSource = ADORS
PlantDatosGen .Show vbModal

pero no logro que me mande ningun dato, que estoy haciendo mal?
de antemano gracias por su ayuda...