Hallo Leute,

ich möchte ein Bild als Binärdatei in einer SQL Datenbank speichern

Dazu habe ich folgende Methode definiert :

Private Sub BildEinlesen(bildPfad As String, fldBildBLOB As Field) <-----hier tritt das Problem auf
    Dim lngDateigroesse As Long
    Dim Buffer() As Byte
    Dim BilddateiID As Integer
    
    
    ' Einlesen
    BilddateiID = FreeFile
    Open bildPfad For Binary Access Read Lock Read Write As BilddateiID
    lngDateigroesse = FileLen(bildPfad)
    ReDim Buffer(lngDateigroesse)
    fldBildBLOB = Null
    Get BilddateiID, , Buffer
    Close BilddateiID
    fldBildBLOB.AppendChunk Buffer  
    
    ' SUXXEED Fehlerprotokoll
    Exit Sub

Um das Bild zu speichern muss ich der Methode ein Feld geben (fldBildBlob)

Leider meldet Access dass eine Typenunverträglichkeit auftritt (siehe Code)

'Bilder in Image speichern
    Dim adoCon As New ADODB.Connection
    Dim adoRs As New ADODB.Recordset
    Dim bildPfad As String
    
    adoCon.ConnectionString = "DRIVER={SQL Server};SERVER=192.168.1.35\SQLSuxxeed2;UID=SUXXEEDRepository;PWD=VogelRauk;DATABASE=SUXXEEDRepository"
    adoCon.Provider = "SQLOLEDB"
    
    adoCon.Open
    adoRs.Open "Select * From tbl_Mailerdaemon_Mails_Images", adoCon, adOpenForwardOnly, adLockPessimistic
    
    For k = 0 To UBound(imagePath)
       bildPfad = path & "\img\" & imagePath(k)
       
       adoRs.AddNew
       
         BildEinlesen bildPfad, adoRs("Image")  <--------- bei Ausführung Meldung: Typenunverträglich
       
       adoRs.Update
    Next

was kann ich tun bitte hleft