Visual Basic - ADO NO ENCONTRO EL PROVEEDOR ESPECIFICADO

AL EJECUTAR LA APLICACIÓN ME DA EL SIGUIENTE MENSAJE:
ADODC X
ADO NO ENCONTRO EL PROVEEDOR ESPECIFICADO

GRACIAS

Muestrame tu linea de conexion con ADO

debe ser un error de conexion cheque este codigo
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
Espero que te ayude
Rod