Isi ComboBox dari Tabel

ISI COMBO BOX
Private Sub Form_Activate()
adobarang.clear
If Not adobarang.Recordset.BOF Then
    adobarang.Recordset.MoveFirst
    Do While Not adobarang.Recordset.EOF
        txtkodebarang.AddItem adobarang.Recordset!kodebarang
        adobarang.Recordset.MoveNext
    Loop
End If

End Sub

PENCARIAN DATA

Private Sub txtkodebarang_Click()

adobarang.Recordset.MoveFirst

adobarang.Recordset.Find "[kodebarang]= '" & txtkodebarang.Text & "'"

If Not adobarang.Recordset.EOF Then

    txtnamabarang.Text = adobarang.Recordset!namabarang

    txthargajual.Text = adobarang.Recordset!hargajual

    txtstok.Text = adobarang.Recordset!jumlahstok

    lblsatuan.Caption = adobarang.Recordset!satuan

End If

txtjumlahjual.SetFocus

End Sub