Visual Basic - Refrescar un datagrid

Hola a todos tengo la siguiente estructura en un form de consulta, la cual funciona sin problemas al momento de escribir algo en el text1 , el problema es que al dejar el blanco el text1 el datagrid no me muestra los registros, es decir no hace el refresf del datagrid..

Que me falta o que tengo mal ????

Dim consulta As String
Private Sub Form_Load()
Set DataGrid1.DataSource = Adodc1.Recordset
Adodc1.Refresh
Adodc1.RecordSource = "Ingreso5"
End Sub

Private Sub Text1_Change()
If Op1 = True Then
consulta = "Nombre"
ElseIf Op2 = True Then
consulta = "empresa"
End If
With Adodc1
If Text1 <> "" Then
.Recordset.Filter = consulta & " Like '*" + Text1 + "*'"
Set DataGrid1.DataSource = Adodc1.Recordset
Else
.Recordset.Filter = ""
End If
.Refresh
End With
End Sub

No encuentro ningún error en el código, quizas alguna inconsistencia, haces un refresh antes del RecordSource, creo que deberia ser después.
Cuando no te muestra ningún registro en .Recordset.Filter = "" te está diciendo que no hay ningún registro a blancos, luego funciona bien.
La ayuda dice que para anular el registro hay que usar la constante adFilterNone con lo que se elimina el filtro.

Me podrias pasar el codigo utilizando el select por favor???