01.Dim strSql As String = ""
02.strSql = "select * from Employees"
03.
04.With cn
05.If .State = ConnectionState.Open Then .Close()
06..ConnectionString = strConn
07..Open()
08.End With
09.
10.RemoveHandler CbbEmployee.SelectedValueChanged, AddressOf CbbEmployee_SelectedValueChanged
11.
12.If dr.HasRows Then
13.dt.Load(dr)
14.With CbbEmployee
15..DisplayMember = "EmployeeName"
16..ValueMember = "EmployeeID"
17..DataSource = dt
18..Text = "<เลือกพนักงาน>"
19.End With
20.End If
21.cn.Close()
22.
23.AddHandler CbbEmployee.SelectedValueChanged, AddressOf CbbEmployee_SelectedValueChanged
24.
25.CbbEmployee.ContextMenu = New ContextMenu()
26.
27.ไม่ได้บอกอีกทีนะ
