Const DB_CONNECTIONSTRING As String = "server=127.0.0.1;user" & _
  "id=root;password=0000;database=dbname"
 
Private Sub Get_All_User()
 
        Dim DBConnection As New MySqlConnection, DBDataAdapter As _
          MySqlDataAdapter, DBDataSet As New DataSet
        DBConnection.ConnectionString = DB_CONNECTIONSTRING
 
        Try
            DBConnection.Open()
            DBDataAdapter = New MySqlDataAdapter("SELECT * FROM user", _
              DBConnection)
            DBDataAdapter.Fill(DBDataSet, "user")
            DataGrid1.DataSource = DBDataSet.Tables("user")
        Catch ex As MySqlException
            MsgBox(ex.Message)
        Finally
            DBConnection.Close()
            DBConnection.Dispose()
            DBDataAdapter.Dispose()
            DBDataSet.Dispose()
        End Try
 
    End Sub
 
    Private Sub Add_User(ByVal tVorname As String, ByVal tNachname As String)
 
        Dim DBConnection As New MySqlConnection, DBDataAdapter As _
          MySqlDataAdapter, DBDataSet As New DataSet, MyNewRow As DataRow
        DBConnection.ConnectionString = DB_CONNECTIONSTRING
 
        Try
            DBConnection.Open()
            DBDataAdapter = New MySqlDataAdapter("SELECT * FROM user", _
              DBConnection)
            DBDataAdapter.Fill(DBDataSet, "user")
            MyNewRow = DBDataSet.Tables("user").NewRow
            MyNewRow("VC_VORNAME") = tVorname
            MyNewRow("VC_NACHNAME") = tNachname
            DBDataSet.Tables("user").Rows.Add(MyNewRow)
            Dim MyCommBuild As New MySqlCommandBuilder(DBDataAdapter)
            DBDataAdapter.Update(DBDataSet, "user")
            DataGrid1.DataSource = DBDataSet.Tables("user")
        Catch ex As MySqlException
            MsgBox(ex.Message)
        Finally
            DBConnection.Close()
            DBConnection.Dispose()
            DBDataAdapter.Dispose()
            DBDataSet.Dispose()
        End Try
 
    End Sub