Menampilkan Database ke Mshflexgrid (VB6)

Halo sobat, kembali lagi saya posting, kali ini saya akan ulas mengenai cara 'Menampilkan Database ke Mshflexgrid VB6'. Pada ulasan sebelumnya saya telah membahas mengenai cara 'Menampilkan Database ke Listview VB6'.

Langsung saja kita buka program Visual Basic 6 nya.

Tambahkan 1 Form : Form1 (default)
Tambahkan Microsoft Hierarchical Flexgrid Control 6.0 (OLEDB)
Caranya : Klik menu Project => Component , lalu centang Microsoft Hierarchical Flexgrid Control 6.0 (OLEDB), lalu klik OK

Letakkan Mshflexgrid ke dalam Form1 dan tampilannya seberti berikut ini

Jika sudah, mari kita ketikkan codingnya, dengan cara double klik pada Form1 kemudian ketikkan coding dibawah ini :

Private Rs As New ADODB.Recordset
Private Con As New ADODB.Connection
Private Sql As String

Private Sub Form_Load()
'Membuka Koneksi
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=./DBgrid.mdb;Persist Security Info=False"

Set Rs = New ADODB.Recordset
    Sql = "select* from tbl_user"
    Rs.Open Sql, Con, adOpenStatic
Set MSHFlexGrid1.Recordset = Rs
    Rs.Close

'Mengatur lebar Kolom Mshflexgrid
    MSHFlexGrid1.ColWidth(0) = 0
    MSHFlexGrid1.ColWidth(1) = 1200
    MSHFlexGrid1.ColWidth(2) = 1200
    MSHFlexGrid1.ColWidth(3) = 1200
End Sub