Menampilkan Fields Tertentu Dari Tabel Database SQL Ke Dalam ComboBox Pada Vb 6

Untuk Menampilkan Nama Fields tertentu dari Tabel Database MySQL ke dalam Combobox Codingan nya adalah sebagai berikut :

Do While Not RSdata.EOF
Combo1.AddItem RSdata!nm_planggan
RSdata.MoveNext
Loop
RSdata.Close

Masukan Codingan tersebut ke dalam Form utama dengan mengklick form nya 2x,kemudian tempatkan codingan tersebut di atas ke dalam nya,tepatnya seperti ini :

Private Sub Form_Load()
Do While Not RSdata.EOF
Combo1.AddItem RSdata!nm_fields
RSdata.MoveNext
Loop
RSdata.Close
end sub

Rsdata dapat anda ganti dengan Koneksi RS.. yang anda gunakan,dan untuk Nm_Fileds adalah Kategori fields dari Tabel database yang ingin kita tampilkan dalam Combobox.

Yang saya maksud dengan koneksi RS adalah koneksi data yang menghubungkan database dari MySQL ke dalam Visual Basic,contoh seperti Koneksi yang saya gunakan adalah sbb :

Private con As ADODB.Connection
Private RSdata As ADODB.Recordset

Public Sub Koneksi()
Set con = New ADODB.Connection
Set RSdata = New ADODB.Recordset
con.Open "Driver={MySQL ODBC 5.1 Driver};server=localhost;database=nm_tabel;uid=root;pwd=****;"
con.CursorLocation = adUseClient
End Sub

Public Sub dtgrid()
Set RSdata = New ADODB.Recordset
    RSdata.ActiveConnection = con
    RSdata.CursorLocation = adUseClient
    RSdata.CursorType = adOpenDynamic
    RSdata.LockType = adLockOptimistic
    RSdata.Source = "SELECT * FROM nm_tabel "
    RSdata.Open
End Sub

Oke Guys.. Demikianlah Tutor kita kali ini,Nex to be continue.. Good Trying.