COMBOBOX MULTI COLUMN & VB CLASSIC TUTORIAL

Sekarang Visual Studio telah samapai Visual Studio .net 2015, tapi saya masih ogah-ogahan untuk beralih ke .Net dan masih lebih suka vb Classic Sementara ini. Karena sementara ini semua keperluan program saya masih bisa dipenuhi oleh vb classic selain itu banyak sekali tutorial dan yang pasti tidak makan memori hahaaaa.
OsenXpsuite adalah Active X yang saya sering gunakan agar tampilan design VB Classic lebih segar.

Tutorial VB Classic dan OsenXP yang akan saya bahas adalah OsenXP ComboBox , hebatnya OsenXP ComboBox bisa mempunyai multi column,Mau???. Ikuti langkahnya berikut ini:

> Pastikan anda sudah install OsenXPSuite
> Buat project baru
> Tambahkan Control OsenXPSuiter melalui menu Project>Component, Pilih Osenxpsuite
> Tambahkan Referense Microsoft Active Data Recored 2.0
> Buat Modul untuk modul koneksi
> Tambahkan OsenXPComboBox, OsenXPButton,dan 4 OsenXPtextbox

Code Form 1

Private Sub Form_Load()
''Membuka Database
Koneksi

''Merubah Color Schema Form
OsenXPForm1.ColorScheme = xpBlue
End Sub


Private Sub OsenXPButton1_Click()
''Membersihkan Kolom dan Isi combobox
OsenXPComboBox1.Clear
OsenXPComboBox1.ClearColumns

''Mengisi combobox melalui Query
Query = "Select * from Barang"
OsenXPComboBox1.InsertItemBySQL Conn, Query, True

''Menambahkan 4 kolom,mengatur lebar dan memformat column
OsenXPComboBox1.AddColumn "Kode"
OsenXPComboBox1.AddColumn "Nama Barang"
OsenXPComboBox1.AddColumn "Harga"
OsenXPComboBox1.AddColumn "Jumlah"
OsenXPComboBox1.ColumnWidth(1) = 50
OsenXPComboBox1.ColumnFormat(3) = "Rp #,###.0"
End Sub


Private Sub OsenXPComboBox1_RowClick(lRow As Long, vData As String)
''Mengambil Nilai dari row berdasarkan id baris (Lrow) dan id kolom(0,1,2,3)
OsenXPTextBox1.Text = OsenXPComboBox1.TextMatrix(lRow, 0)
OsenXPTextBox2.Text = OsenXPComboBox1.TextMatrix(lRow, 1)
OsenXPTextBox3.Text = OsenXPComboBox1.TextMatrix(lRow, 2)
OsenXPTextBox4.Text = OsenXPComboBox1.TextMatrix(lRow, 3)
End Sub

Module Koneksi

Public Conn As ADODB.Connection
Public Rs As ADODB.Recordset
Public Query As String

Public Sub Koneksi()
Set Conn = New ADODB.Connection
Dim dblocation As String
dblocation = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\latihan.mdb;"
Conn.ConnectionString = dblocation
Conn.Open
End Sub