Visual Basic - ayuda en busqueda

Saludos, mi problema es que quiero realizar una buaqueda en mi base de datos pero la conexion la hago con el adodc se como se hace directo pero no puedo hacerlo por medio del adodc ya que quiero que se pueda introducir el nombre o el codigo alguien me podia decir como lo puedo hacer yo lo hago asi pero no se donde esta mi error

Dim BaseDatos As Database
Dim Direccion, Tira As String
Dim Rs As Recordset

Private Sub Form_Load()
Direccion = App.Path & "\cepro2.mdb"
Set BaseDatos = OpenDatabase(Direccion)
Tira = "Select * From Producto"
Set Rs = BaseDatos.OpenRecordset(Tira)
End Sub

Private Sub Text1_Change()
With Rs
Dim TCadena, T As Variant
If Rs.RecordCount > 0 Then
List1.Clear
List3.Clear
List4.Clear
Rs.MoveFirst
TCadena = Len(Text1.Text)
While Not Rs.EOF
cadena = Mid(Rs(3), 1, Len(Text1.Text))
If UCase(cadena) Like UCase(Text1.Text) Then
List1.AddItem Rs(1)
List3.AddItem Rs(4)
List4.AddItem Rs(3)
End If
Rs.MoveNext
Wend
End If

End With
End Sub

Private Sub Text2_Click()
Text2.Text = List1.Text
Text3.Text = List4.Text
Text4.Text = List3.Text
End Sub

De antemano les agradesco su ayuda.

No entiendo

Que se pueda poner cual nombre o cual codigo ?