sql = "select * from ...............ฐานข้อมูล........"
Da = New SqlDataAdapter(sql, cn)
Dt = New DataTable
Da.Fill(Dt)
Dim dr As DataRow = Dt.NewRow
dr(0) = 0
dr(1) = "-----ระบุ-----"
Dt.Rows.InsertAt(dr, 0)
If Dt.Rows.Count > 0 Then
With =ชื่อ Combobox
.DataSource = Dt
.DisplayMember = "ข้อมูลของตารางที่จะดึง"
.ValueMember = "PK ของตารางที่จะดึง"
End With
Else
End If