Private Sub Potion()
Dim sqlCustomers As String
sqlCustomers = "SELECT * FROM tbl_potion"
dbRead = New OleDbDataAdapter(sqlCustomers, Conn)
dbRead.Fill(ds, "Potion")
จะใส่ Combobox เพื่อดึงออกมาจากฐานข้อมูล
End Sub
Private Sub Potion()
Dim sqlCustomers As String
sqlCustomers = "SELECT * FROM tbl_potion"
dbRead = New OleDbDataAdapter(sqlCustomers, Conn)
dbRead.Fill(ds, "Potion")
จะใส่ Combobox เพื่อดึงออกมาจากฐานข้อมูล
End Sub