Visual Basic - error 3703

hola estoy estudiando la materia de informatica y mi maestro me dejo un proyecto en vb6 el cual es buscar los datos de una base de datos y al momento de buscar se llenen automaticamente textbox con dichos datos pero al momento de ejecutar me sale este error '3703' en tiempo de ejecucion
La operacion no esta permitida si el objeto esta cerrardo
este es mi codigo:


Private Sub CmdBuscar_Click()
Busca = InputBox("Ingrese la Ruta que desea Buscar", "Buscar")
If Busca = "" Then Exit Sub
With RsCorreos
.Requery
.Find "RUTA='" & Val(Busca) & "'"
If .EOF Then
MsgBox "No se encuentra ninguna ruta con esas especificaciones"
Exit Sub
Else
TXTRUTA.Text = DataGrid1.Columns(1).Text
TXTIR.Text = DataGrid1.Columns(2).Text
TXTD.Text = DataGrid1.Columns(3).Text
TXTTR.Text = DataGrid1.Columns(4).Text
TXTCP.Text = DataGrid1.Columns(5).Text
TXTOF.Text = DataGrid1.Columns(6).Text
TXTTP.Text = DataGrid1.Columns(7).Text
TXTF.Text = DataGrid1.Columns(8).Text
TXTHP.Text = DataGrid1.Columns(9).Text
TXTLL.Text = DataGrid1.Columns(10).Text
TXTS.Text = DataGrid1.Columns(11).Text
TXTHT.Text = DataGrid1.Columns(12).Text
TXTES.Text = DataGrid1.Columns(13).Text
TXTPT.Text = DataGrid1.Columns(14).Text
TXTP.Text = DataGrid1.Columns(15).Text
TXTFECHA.Text = DataGrid1.Columns(16).Text
TXTCPCDD.Text = DataGrid1.Columns(17).Text
TXTCDD.Text = DataGrid1.Columns(18).Text

End If
End With
End Sub

Private Sub Form_Load()

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=E:\Rutas." & _
"MDB;Persist Security Info=False"

With Adodc1
.CommandType = adCmdText
.RecordSource = "Select * From Correos"
.Refresh
Set DataGrid1.DataSource = Adodc1.Recordset
DataGrid1.MarqueeStyle = dbgHighlightRowRaiseCell

.Visible = False
End With

With Combo1
Combo1.Text = "RUTA"
End With
Text1 = "RUTA"

End Sub


porfavor me pudieran ayudar