VB6 - MySQL Fehler, nur wo? (kurz)

[SyStemChaoS]

    Dim conn As ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim mystream As New ADODB.Stream
    Set conn = New ADODB.Connection
    
    conn.CursorLocation = adUseClient
    conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
                          & "SERVER=xxxxxxx;" _
                          & "DATABASE=xxxxxx;" _
                          & "UID=xxxxxxx;" _
                          & "PWD=xxxxxxxx;" _
                          & "OPTION=" & 1 + 2 + 8 + 32 + 2048 + 16384
    conn.Open
    
    mystream.Type = adTypeBinary

    rs.Open "SELECT * FROM test WHERE id = 1", conn
    
    mystream.Open
    mystream.Write rs!File
    mystream.SaveToFile "c:\\test.txt", adSaveCreateOverWrite
    mystream.Close
    
    rs.Close
    conn.Close

Ich bekomme immer die Fehlermeldung nr 3265 ... der Debugger zeigt mir diese Zeile an: mystream.Write rs!File

Da ich recht neu bin und schon was nach der Lösung suche, denke ich, es ist Zeit hier zu posten ...

Thx & CiaoCiao.

 

[SyStemChaoS]

Gut, ich benutz einfach kein stream mehr -.- ... ...