Uzak Sql Server Sunucusundan Excel e Veri Aktarma Excel VBA

Uzak sunucuda kurulu sql serverdan excel e veri aktarmak için aşağıdaki kod parçasını

Sub SQLServerBaglantiKontrol()
    Dim baglanti As New ADODB.Connection
    Dim sunucu As String
    Dim veritabani As String
    Dim ID As String
    Dim sifre As String

    ' Sunucu ve veritabanı bilgileri
    sunucu = "85.111.222.333,1433" ' IP adresi ve default port olan 1433 port.
    veritabani = "veritabaniadi"
    ID = "sa"
    sifre = "123456"

    ' Bağlantıyı açma
    On Error GoTo Hata
    baglanti.Open "Provider=SQLOLEDB;Data Source=" & sunucu & ";Initial Catalog=" & veritabani & ";User ID=" & ID & ";Password=" & sifre & ";"
    MsgBox "Bağlantı başarılı!", vbInformation
   
    ' Kaynakları temizleme
    baglanti.Close
    Set baglanti = Nothing
    Exit Sub

Hata:
    MsgBox "Bağlantı kurulamadı. Hata: " & Err.Description, vbCritical
    If Not baglanti Is Nothing Then baglanti.Close
    Set baglanti = Nothing
End Sub