Sekarang kita coba memperlihatkan data dari tabel kategori ke dalam list combobox. Atur layout sederhana mirip berikut: Semudian source code di belakang form adalah selaku berikut: Imports System.Data.OleDb Public Class Form1 Dim con As New OleDbConnection( "Provider=Microsoft.ACE.OLEDB.12.0" & _ ";Data Source=latihan.accdb;" & _ "Persist Security Info=False;" ) Private Sub Form1_Load(sender As Object, _ e As EventArgs) Handles MyBase .Load Dim cmd As New OleDbCommand Dim adapt As New OleDbDataAdapter Dim dt As New DataTable Try con.Open() cmd.Connection = con cmd.CommandText = "Select kodekategori, namakategori From klasifikasi" adapt.SelectCommand = cmd adapt.Fill(dt) ComboBox1.DataSource = dt ComboBox1.DisplayMember = "namakategori" ComboBox1.ValueMember = "kodekategori" con.Close() Catch myerror As OleDbException MessageBox.Show( "Error: " & myerror.Message) Finally con.Dispose() End Try End Sub End Class Coba Run: List akan memperlihatkan data klasifikasi. Click here if you like this article. Sumber http://rani-irsan.blogspot.com