mysql und Visual Basic

[<richard.schuelein_(at)_mako.de>]

Hallo

Ich weiß nicht, ob ihr mir weiterhelfen könnt, da es wahrscheinlich eher ein
Visual Basic Problem ist.... aber es tritt halt nur auf, wenn ich meine
MySQL-DB anspreche....mit einer Access-DB geht es...

Ich habe eine Datenbank, die durch ein VB-Programm jede Nacht aktualisiert
wird. In dem VB-Programm lade ich Daten aus der DB in ein Recordset, führe
dann verschiedene Aktualisierungen und Berechnungen durch und schreibe den
Datensatz dann zurück in die DB. Das funktioniert alles bis dahin
einwandfrei, bloß seltsamerweise stürzt dieses Programm genau dann ab, wenn
ich am Ende den Recordset wieder schließe. Außerdem läßt sich das auf WinNT
eingrenzen... unter Win95 und Win2K funktioniert das ganze ohne Probleme!
Ich vermute da mal einen Zusammenhang mit der MyODBC-Schnittstelle. Ist das
Problem bekannt bzw. gibt es ein Workaround dazu?

Hier noch ein Beispielquelltext, mit dem ich den Absturz provozieren kann


Private Sub Command1_Click()
Dim conn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rs As New ADODB.Recordset
Dim sql As String
conn.Open "DSN=mysql;uid=sa;pwd=;database=Einkauf"
Set cmd.ActiveConnection = conn
sql = "Select * from Tabelle"
  cmd.CommandText = sql
  rs.CursorLocation = adUseClient
  rs.Open cmd, , adOpenStatic, adLockBatchOptimistic
  rs.Sort = "Artikelnummer"
  rs.ActiveConnection = Nothing
  rs.MoveFirst

Do Until rs.EOF = True
   Form1.Combo1.AddItem rs!Artikelnummer
   rs.MoveNext
Loop

'Genau nach diesem rs.close kommt es zu dem Absturz aber eben nur wenn ich
eine mySQL-DB anspreche. Mit Access geht das ganze ohne Probleme
rs.Close
conn.Close
End Sub


---
*** Weitere Infos zur Mailingliste und MySQL unter http://www.4t2.com/mysql