Memunculkan ComboBox KodeBarang Dan NamaBarang VB 6.0

Pada kesempatan ini akan dibahas mengenai cara Memunculkan Data Pada Database yaitu Kode Barang dan KodeBarang didalam ComboBox. Jika biasanya kita hanya memunculkan Kode Barang saja pada ComboBox, kali ini kita akan memunculkan 2 Field yang ada didatabase kedalam satu ComboBox pada Visual Basic 6.0

Caranya ikuti langkah langkah dibawah ini :
Kami mempunyai database yang dinamakan : DBAplikasi.mdb
kemudian didalam Database tersebut, saya mempunyai Tabel Barang

Buatlah satu Folder yang didalamnya terdapat : Project VB 6.0 dan Database diatas
Kemudian buat Form seperti gambar dibawah ini :

Masukan Koding dibawah ini :

Dim Conn As New ADODB.Connection
Dim RSBarang As ADODB.Recordset
Sub FormEmpty()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
End Sub
Sub OpenDB()
    Set Conn = New ADODB.Connection
    Set RSBarang = New ADODB.Recordset
    Conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DBAplikasi.mdb"
End Sub
Private Sub Form_Activate()
 RSBarang.Open "Barang", Conn
        Combo1.Clear
    Do Until RSBarang.EOF
        Combo1.AddItem RSBarang!KodeBarang & Space(3) & RSBarang!namaBarang
        RSBarang.MoveNext
    Loop
End Sub
Private Sub Form_Load()
    FormEmpty
    Call OpenDB
    Adodc1.ConnectionString = Conn
    Adodc1.RecordSource = "Barang"
    Adodc1.Refresh
    Set DataGrid1.DataSource = Adodc1
End Sub
Private Sub Combo1_Click()
    Call OpenDB
    RSBarang.Open ("Select * From Barang where KodeBarang='" & Left(Combo1, 6) & "'"), Conn
    If Not RSBarang.EOF Then
        Text1 = RSBarang!namaBarang
        Text2 = RSBarang!HargaBarang
        Text3 = RSBarang!JumlahBarang
        Text4 = RSBarang!SatuanBarang
    End If
    Conn.Close
End Sub

Jalankan Aplikasi anda dan berikut hasilnya :

Semoga bermanfaat untuk belajar VB 6.0, jangan lupa berkomentar yaaa :)