Visual Basic - PROBLEMA CON TEXTBOX

Estoy utilizando este codigo para conectarme a una base de datos con ADO.

Private Sub txtDes_GotFocus()
If rs.RecordCount > 0 Then
rs.MoveFirst
rs.Seek Array(Val(txtCodi.Text))
End If

If Not rs.EOF Then
txtDes.Text = rs!descrip
txtFe.Text = rs!fecha
End If
End Sub

pero aqui en este codigo rs.Seek Array(Val(txtCodi.Text)) me dice que el objecto del proveedor no puede ejecutar la operación requerida
Quien me podria ayudar a decir cual es el problema.

Fijate bien porque me parece que en Seek tiene que ir una cadena con algunos parametros mas de los que les das.

Gracias hormiga, sabes ese ere el problema muchísima gracias
Espejo

Cualquier cosa puede comunicarte conmigo es......