Hallo BigBen,

hier ist nochmal der Code den ich momentan verwende und der bis zu den beschriebenden Punkten in Nachrricht von 05.04.2017 durchläuft.

Sub Beispiel_Anfrage_SQL_Server() 'Code von https://social.msdn.microsoft.com/Forums/de-DE/a73a838b-ec3f-419b-be65-8b1732fbf4d0/connect-to-a-remote-sql-server-db?forum=isvvba
  
    Dim Cn As New ADODB.Connection
    Dim Server_Name As String
    Dim Database_Name As String
    Dim User_ID As String
    Dim Password As String
    Dim SQLStr As String
    Dim rs As New ADODB.Recordset
    Set rs = New ADODB.Recordset
    Set Cn = New ADODB.Connection
     
    Server_Name = "Server_XYZ" ' Servername hier eingeben
    Database_Name = "Schilder" ' Datenbankname hier eingeben
    User_ID = "XYZ" ' User_ID hier eingeben
    Password = "abc" ' Passwort hier eingeben
    SQLStr = "SELECT Schilder.SVG as Bild " & _
            "FROM Sprachen INNER JOIN Schilder ON Sprachen.ID = Schilder.SprachenID" & _
            " WHERE (Sprachen.Sprache = N'DE_DE') AND (Schilder.MasterID = 10005)"
    Cn.Open "Driver={SQL Server};Server=" & Server_Name & ";Database=" & Database_Name & ";user id=" & User_ID & ";pwd=" & Password & ";"
     
     
    rs.Open SQLStr, Cn, adOpenStatic
    
    Dim strFilename As String
    Dim iFile As Integer
    iFile = FreeFile()
    strFilename = "C:\Schild.svg"
    Open strFilename For Output As iFile
     
    If Not rs.EOF Then
        ' Testen, ob print die Daten korrekt schreibt:
        Print iFile, rs.Fields("Bild").Value
         
        ' Testen, ob put die Daten korrekt schreibt:
        'Put iFile, , rs.Fields("Bild").Value
    End If
      
    ' Tidy up
    rs.Close
    Set rs = Nothing
    Cn.Close
    Set Cn = Nothing

End Sub

Vielen Dank für die wirklich super Hilfe ohne dich wäre ich nie soweit gekommen. Wenn wir das nun mit dem schreiben der Datei hinbekommen bin ich schon wirklich zufrieden.

Gruß

Dominik