Dim conn As New ADODB.Connection
    With conn
    .CursorLocation = adUseClient
    .Provider = "MSDASQL"
    .Open "Driver=MySQL; Server=localhost; Database=Bild;", "root", ""
   End With
 
 
    Dim rs As New ADODB.Recordset
    Dim mystream As New ADODB.Stream
 
 
    mystream.Type = adTypeBinary