I have some code to access the DSNs on the local machine, but I am getting an error

Code:
    Dim objDSN As Dsn
    Dim strDSArray() As String
    Dim I As Long
    
    Set objDSN = New Dsn
    
    objDSN.GetDataSourceList strDSArray()
    
    'list drivers
    
    'list dsns
    For I = LBound(strDSArray) To UBound(strDSArray)
        lstDNS.AddItem strDSArray(I)
    Next I
I just need to know what reference I need to add to access the Dsn. I get an error that user-type not defined.

Thanks in advance