Visual Basic - tengo un problema con ODBC

tengo un problema en el siguiente codigo..

option explicit
Public IClin As Database
Public regPdt As Recordset

Private Sub Form_Load()
Ruta = "c:\mis documentos\IClin.mdb"
**** Set IClin = OpenDatabase(Ruta)
Set regPdt = IClin.OpenRecordset("Productos", dbOpenTable)
End Sub

en la parte que esta con asteriscos se detiene y me envia a la ODBC para seleccionar un origen de datos.
¿alguien me podria esplicar porque pasa esto y como debo solucionarlo ?

Oye deja de complicarte la vida esta conexion es mas sencilla e mas facil de usar
espero que te ayudes

Option Explicit ' de calra la siguiente
private cn as new ADODB.connection
private Rs as new ADODB.recordset

'cn es la conexion del
'rs es el recordset abajo de la describo mejor

Private Sub Form_Load()
cn.Open "provider =microsoft.jet.oledb.4.0; Data Source=C:\Produ\basepro.mdb;persist security info=false"
' CN.Open es la expecificacion de la coneccion que se hace con la base de datos en este caso microsoft

rs.Open "tcata", cn, adOpenKeyset, adLockOptimistic, adCmdTableDirect
'Recordset es la variable que agrupa un conjuntos de registros de una TABLA o Mas
rs.Index = "clave01"

End Sub

Gracias rod funciono perfectamente tu código ....

rod
con el ejemplo que me diste no pudo ocupar el metosdo seek del recordset me sale un error que dice "no se encontro el metodo o miembro de dato"