01.sql = "select * from ...............ฐานข้อมูล........"
02.Da = New SqlDataAdapter(sql, cn)
03.Dt = New DataTable
04.Da.Fill(Dt)
05.Dim dr As DataRow = Dt.NewRow
06.dr(0) = 0
07.dr(1) = "-----ระบุ-----"
08.Dt.Rows.InsertAt(dr, 0)
09.If Dt.Rows.Count > 0 Then
10.With =ชื่อ Combobox
11..DataSource = Dt
12..DisplayMember = "ข้อมูลของตารางที่จะดึง"
13..ValueMember = "PK ของตารางที่จะดึง"
14.End With
15.Else
16.End If
