Conexión via ODBC con base ".MDB"

[saturno]

Hola a todos, he buscado en el foro sin cesar una solución para el problema que tengo con el siguiente código, como no encontré nada ahora les paso el programa, para que vean cuál puede ser la causa de que me provoque el ERROR 3423.

Option Explicit
Dim DB As DAO.Database
Dim WS As DAO.Workspace
Dim error As Integer

Private Sub Form_Load()
On Error GoTo Fck
error = 0

Set DB = Nothing
Set DB = OpenDatabase(vbNullString, 0, 0, "ODBC;DDSN=MS Access 97 Database;UID=;PWD=;")

Exit Sub
Fck:
MsgBox Err.Description, , "Error: " & Err.Number
error = Err.Number
End Sub

Private Sub Form_Unload(Cancel As Integer)
If error = 0 Then
DB.Close
End If
End Sub

Desde ya muchas gracias por las respuestas, saludos Saturno.