Private Sub addProductType()
Dim sqlCmd As String = "SELECT * From ProductType"
conn.Open()
Dim command As New OleDbCommand(sqlCmd, conn)
dr = command.ExecuteReader()
If dr.HasRows Then
dt = New DataTable()
dt.Load(dr)
dr.Close()
For Each drw As DataRow In dt.Rows
(ชื่อ combobox ครับ)cbType.Items.Add(drw.Item("ชื่อประเภทสินค้า"))
Next
End If
conn.Close()
End Sub