Al aplicar la propiedad filter se va perdiendo la informacion del recordset como hago para recuperarla
Código:
If Trim(txtBuscar) = "" Then
'Si la caja esta vacia muestro todos los registros
'Como lo hago?
Else
mi_consulta = "nomProd like '" & "*" + Trim(txtBuscar) + "*" & "'"
rsProd.Filter = mi_consulta
DataGrid1.Enabled = True
End If