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