Visual Basic - Problemas ADODB y Actualizar datagrid

Gente de la web del programador SOCORRO ESTOY PROBANDO DE TODO PERO EL PROBLEMA ES EL SIGUIENTE. HAGO UN FILTER EN EL RECORDSET MIENTRAS ENCUENTRA ESTA TODO BIEN ME FILTRA. CUANDO NO HICE (YO) MSGBOX QUE DICE QUE NO SE ENCUENTRA NINGUN DATOS CON ESOS PARAMETROS. ENTONCES NECESITARIA QUE ME CARGE EL DATAGRID NUEVAMENTE PERO NO LO HACE. PROBE CON REBIND Y REFRESCAR Y REQUERY DEL GRID Y DEL ADODB PERO NADA
TODO ESTA LEBANTADO CON DODIGO POR ESO USO ADODB.
A CONTINUACIÓN LES MANDO EL CODIGO.

Private Sub cmdbuscar_Click()
rs.MoveFirst
rs.Filter = "Nombre_Apellido Like '*" + txtapellido.Text + "*'"

If rs.EOF = True Then
MsgBox "No hay clientes con ese apellido", vbOKOnly + vbCritical, "Atención"
Set gridbuscar.DataSource = rs

End If
End Sub

Private Sub Form_Load()
'Establesco la coneccion

'Aqui establesco el proveedor
cn.Provider = "Microsoft.Jet.OLEDB.4.0"
'Aqui establesco la coneccion con la base de datos
cn.ConnectionString = App.Path & "\clientes.mdb"
'Habre la conexion
'Si da error en cn.open -> Fijarme si el proveedor es el correcto
cn.Open
'Aqui se obtiene una serie de registros: en este caso de la
'tabla clientes
rs.CursorLocation = adUseClient
rs.Open "select * from cliente", cn, adOpenKeyset, adLockOptimistic
Set gridbuscar.DataSource = rs
End Sub

Te envio lo que debes modificar de tu codigo:

Private Sub cmdbuscar_Click()

rs.MoveFirst
rs.Filter = "Nombre_Apellido Like '*" + txtapellido.Text + "*'"

If rs.EOF = True Then
MsgBox "No hay clientes con ese apellido", vbOKOnly + vbCritical, "Atención"
If rs.State = 1 Then
rs.Close
Set rs = Nothing
End If
rs.CursorLocation = adUseClient
rs.Open "select * from clientes", cn, adOpenKeyset, adLockOptimistic

Set gridbuscar.DataSource = rs
End If

End Sub