Dim s As New MySqlConnection _
            ("server=meinDBserver" & _
            ";username=ich;password=geheim;database=TESTDB")
 
        Dim q As New MySqlCommand("select * from tabelle",s)
 
 
        Dim r As MySqlDataReader
 
     s.Open()
 
        r = q.ExecuteReader()
        MsgBox(r.RecordsAffected) 'Kommt -1 raus
        MsgBox(r.FieldCount) ' kommt 56 raus
 
    s.Close()

________________________________________________________________

Du kannst mit deinem Computer ALLES machen was Du willst!
Allerdings musst Du erst herausfinden wie.....
________________________________________________________________