Fungsi Data Source binding

1. Sub pembeli()
2.         datapembeli = Proses.ExecuteQuery("SELECT pembeli_nomor_ktp FROM pembeli ORDER BY pembeli_nomor_ktp ASC")
3.         If datapembeli.Rows.Count = 0 Then
4.         Else
5.             cbNoKtp.Items.Clear()
6.             With datapembeli.Columns(0)
7.                 For a = 0 To datapembeli.Rows.Count - 1
8.                     cbNoKtp.Items.Add("" & .Table.Rows(a).Item(0) & "")
9.                 Next a
10.             End With
11.         End If
12.     End Sub