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. 
   
 



 (para esas versiones)
 (para esas versiones) 
 
