Menampilkan Data di ComboBox VB6 dari database mySQL

Postikan kali ini tentang bagaimana cara menampilkan database di ComboBox VB6

Bagi anda yang hanya mencari coding, berikut saya berikan codingNya dengan catatan koneksi sudah anda buat dan berhasil kemudian tabel database sudah bisa diakses

    rsUser.Requery
    With rsUser
    If .EOF And .BOF Then
        MsgBox "DATA USER TIDAK DITEMUKAN", vbOKOnly + vbCritical, "Error"
    Else
        cboNama.Clear
        Do Until .EOF
            cboNama.AddItem ![Nama]
            .MoveNext
        Loop
            .MoveFirst
    End If
    End With


pada koding diatas saya menggunakan recordset "rsUser" dan ComboBox "cboNama"
database yang saya gunakan MySQL

Tetapi bagi anda yang belum membuat koneksi yang berhasil, silahkan simak postingan berikut :
http://cara-mukhlas.blogspot.com/2012/07/membuat-form-menu-login-vb6-mysql.html