COMPLETE NOOB STARTER QUESTION - COMPILE ERROR - USER DEFINED TYPE NOT DEFINED

[it115it]

I have been given an excel program containing a VBA code. Its password protected and when i open the VBA mode and run the program i get the error Compile error : User-defined type not defined on the line con As ADODB.Connection
The Excel program basically looks at an Access database ( located on a shared folder in accdb format) and compares some tables in it and produces an output.
The program used to work previously and some reason it stopped i am trying to troubleshoot it. I have moved the database locally on my C drive and changed the code to point at my C drive instead of the shared folder. Instead i get the following error as shown in the attachment. I will appreciate any help in resolving.

 

[it115it]

It's not being set anywhere in that code, and you can't open a recordset using a blank SQL string.

Sorry found this in sheet 1

Private Sub cmdGetData_Click()

Dim MySheetCount As Integer
    
    MySheetCount = Worksheets.Count
    
    If MySheetCount > 1 Then
        ActiveWorkbook.Unprotect Password:="XXXXXX"
        Application.DisplayAlerts = False
        For i = 2 To MySheetCount
            Worksheets(2).Select
            ActiveSheet.Delete
        Next i
        Application.DisplayAlerts = True
        'ActiveWorkbook.Protect Password:="XXXXXX", Structure:=True, Windows:=False
    End If
    
   MySQL = "SELECT [ Number], ABC, [Name], [HAN], MAN, CMAN, [ Category]," _
            & "[B ], [A ], [B ], [A ] " _
            & "FROM Data " _
            & "WHERE ( Is Not Null) And ([Number] < '200') " _
            & "ORDER BY [Number]"
    
    Application.ScreenUpdating = False
    
    Call GetData
    
    MySQL = ""
    
    Call FormatSheet
    
    Call DoCompare
    
    Application.ScreenUpdating = True

End Sub[CODE=vba][CODE=vba]

[/CODE][/CODE]

 

[RoryA]

Your SQL string doesn't look right to me. In your WHERE clause, what are you testing with the Is Not Null? There should be a field name there. You also appear to have random spaces added to some field names.