Error

[anestaki]

Καλησπέρα σε όλους
Στης παρακάτω γραμμές του κώδικα μου εμφανίζει το εξής λάθος (το αντικείμενο του αρχείου προέλευσης έχει ήδη προετοιμαστεί) γνωρίζει κανείς τη ακριβώς σημαίνει και πώς διορθώνετε.
Σας ευχαριστώ εκ των προτέρων Γιώργος

Private Sub Form_Load()
If CheckVolumeNumber = True Then
'----------------------
Dim lngDC As Long
Dim cn As New ADODB.Connection
Set cn = CurrentProject.Connection
Dim mydate As Date
   On Error GoTo Form_Load_Error

[Spirosgr]

Καλησπέρα
Το τμήμα του κώδικα, είναι μικρό για να δει κανείς τι ακριβώς γίνεται...
Παρ' όλα αυτά δοκίμασε:

Dim cn As ADODB.Connection
Set cn = New ADODB.Connection

και ακόμα, δες αν έχεις ενεργοποιήσει τις βιβλιοθήκες:

Visual Basic for Applications
Microsoft Access 8.0 Object Library (ή νεώτερο)
Microsoft DAO 3.5 Object Library (ή νεώτερο)

[anestaki]

Σπύρο σε ευχαριστώ πολύ δεν είχε φόρτωση της βιβλιοθήκες στην εγκατάσταση.