Dim conString As String = "server=localhost;user" & _
      "id=Filesystem;password=bene1905;database=filesystem"
    Dim ds As New DataSet
    Dim dt As New DataTable
 
    Private Sub cmdSave_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles cmdSave.Click
        Try
            Dim SQL As String = ("UPDATE filesystem.auth_system SET PASS='" & _
              txtPwd.Text & "', Vorname='" & txtVorname.Text & "', Nachname='" _
              & txtName.Text & "', EMAIL='" & txtMail.Text & "', ICQ='" & _
              txtICQ.Text & "', Handy='" & txtHandy.Text & "' WHERE USERNAME='" _
              & cmbUsername.Text & "'") 'Die Abfrage
            Dim da As New MySqlDataAdapter(SQL, conString) 'der 
            ' Verbindungsstring und die Abfrage
            Dim cmd As New MySqlCommandBuilder(da)  'Den Befehl ausführen
 
 
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub