Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles Button2.Click
        ' Connection-String festlegen
        Dim sConn As String
        Dim sServer As String
        Dim sUserName As String
        Dim sPassword As String
        Dim sDBName As String
 
        ' Server Hostname (oder IP)
        sServer = "localhost"
 
        ' Benutzerdaten
        sUserName = "root"
        sPassword = "super"
 
        ' Datenbank-Name
        sDBName = "test"
 
        sConn = "Provider=MSDASQL;Driver=MySQL;" & _
                "Server=" & sServer & ";Database=" & sDBName
 
        ' Connection öffnen
        oConn.Open(sConn, sUserName, sPassword)
 
    End Sub

blutiger anf?nger
ich weiss was ich will
aber eben nicht wie es geht