Dim dr As New OleDb.OleDbDataAdapter("SELECT * FROM TRAINEES", libr.objConnection)

        Dim ds As New DataSet

        dr.Fill(ds)

        ds.Tables(0).TableName = "TRAINEES"


        'ds.Tables.Item(0).Rows.Add.Item(1) = Me.txtName.Text
        'ds.Tables.Item(0).Rows.Add.Item(2) = Me.txtSurname.Text

        Dim row As DataRow
        row = ds.Tables(0).NewRow
        row.Item("trn_name") = Me.txtName.Text
        row.Item("trn_surname") = Me.txtSurname.Text

        ds.Tables.Item(0).Rows.Add(row)

        ds.AcceptChanges()

        Dim i As Integer
        For i = 0 To ds.Tables.Item(0).Rows.Count - 1
            MessageBox.Show(ds.Tables.Item(0).Rows(i).Item(1))
        Next

        MessageBox.Show(dr.Update(ds))