Private Sub cmd_race_load_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles cmd_race_load.Click
        DIM da as New MySqlDataAdapter("SELECT * FROM " & cb_race_table.Text, _
          connectionString)
        dt = New DataTable(cb_race_table.Text)
        da.Fill(dt)
        raceBindingSource.DataSource = dt
        race_grid.DataSource = raceBindingSource
        cmd_start.Enabled = True
    End Sub

Private Sub cmd_race_save_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles cmd_race_save.Click
        DIM da as New MySqlDataAdapter("SELECT * FROM " & cb_race_table.Text, _
          connectionString)
        Dim cmdb As New MySqlCommandBuilder(da)
        raceBindingSource.EndEdit()
        da.Update(dt) 
    End Sub