Sub Referans()
    Dim ref As Object
    
    ' Belirtilen referansları kontrol edin ve yoksa etkinleştirin
    On Error Resume Next
    Set ref = References("Microsoft Access 16.0 Object Library")
    On Error GoTo 0
    
    If ref Is Nothing Then
        References.AddFromFile "C:\Program Files (x86)\Common Files\Microsoft Shared\OFFICE16\MSACC.OLB"
 MsgBox "Başarılı şekilde eklendi", vbiInformation, "Referanslar"
    End If

Sub hh()
Dim ref As Reference, i As Long
For i = 1 To Application.References.Count
Debug.Print Application.References(i).Name, Application.References(i).FullPath
Next i
End Sub