Visual Basic - Problemas para conectarme con ADO. URGENTE

Por favor si alguien me ayuda, tengo un Form con el siguiente codigo y me tira el siguiente error quien me puede ayudar.

Option Explicit
Private cnn As ADODB.Connection

Private Sub Form_Load()

Const sPathBase As String = "F:\Proyectos\Jose Ado\crediya.MDB"

Set cnn = New ADODB.Connection

With cnn
.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.3.51;" & _
"Data Source=" & sPathBase & ";"
.Open
End With

End Sub

Uso la librería ActiveX Data Object 2.5 Library

Cuando ejecuto mi tira el siguiente eror:

Error '430´en tiempo de ejecución
Esta clase no admite automatización o no admite la interfaz esperada.

Marcando en amarillo la linea:

Set cnn = New ADODB.Connection

Hola.
No se si este será tu problema, pero puedes probarlo:
Option Explicit
Dim cnn As New ADODB.Connection

Private Sub Form_Load()

Const sPathBase As String = "F:\Proyectos\Jose Ado\crediya.MDB"

With cnn
.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.3.51;" & _
"Data Source=" & sPathBase & ";"
.Open
End With

End Sub

Creo que el problema radica en que estas utilizando la libreria Ado 2.5 para trabajar con base de datos Access 97, deberias trabajar con Base de Dato de Access 2000 , en donde ya no seria OLEDB.3.5.1 si no OLEDB.4.0
Suerte