01.Private Sub Showmem()
02. Dim sql As String = "SELECT * FROM Member"
03. da.SelectCommand = New OleDbCommand(sql, conn)
04. Try
05. ds.Clear()
06. da.Fill(ds, "mem")
07. Catch ex As OleDbException
08. MsgBox(ex.Message)
09. Exit Sub
10. End Try
11. dgv_member.DataSource = ds.Tables("mem")
12. HeadGridView()
13. End Sub
14.
15.Private Sub bt_save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_save.Click
16.คำสั่ง Insert Update Delete
17.........
18..........
19.MessageBox.Show("เพิ่มสมาชิกใหม่ เรียบร้อยแล้ว !!!", "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Information)
20.Showmem()
21.End Sub
