Cara Mengkonekikan Databese Menggunakan ADODB di VB6

Halooo.. Disini saya akan memposting lagi nih Cara Mengkonekikan Databese Menggunakan ADODB di VB6. Langsung saja ini dia infonya...

Pertama kamu harus mengaktifkan Microsoft Active X Data Object 2.8 di Refrences.

Kemudian anda buat lah form seperti berikut ini :

Setelah anda membuat nya tuliskan lah syntax nya dibawah ini :

 '----------------------------------------------------------------------------
Dim Koneksi As New ADODB.Connection
Dim TabelUser As New ADODB.Recordset
Sub BukaKoneksi()
Set koneski = New ADODB.Connection
Koneksi.CursorLocation = adUseServer
Koneksi.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\KKendaraan.mdb;Persist Security Info=False"
Koneksi.Open
End Sub
Sub TutupKoneksi()
DG.Visible = False
TabelUser.Close
Koneksi.Close
Set TabelUser = Nothing
Set Koneksi = Nothing
End Sub

Private Sub Command1_Click()
Unload Me
Form2.Show
End Sub

Private Sub Form_Load()
BukaKoneksi
Set TabelUser = New ADODB.Recordset
TabelUser.CursorLocation = adUseClient
TabelUser.Open "SELECT * FROM Akun;", Koneksi, adOpenDynamic, adLockOptimistic
Set DG.DataSource = TabelUser
DG.Visible = True
End Sub

Private Sub Form_Unload(Cancel As Integer)
TutupKoneksi
End Sub
'----------------------------------------------------------------------------

Dan ini hasil dari program tersebut :

Bila anda malas untuk mengerjakannya ,saya sudah menyediakan link doawnloadnya...
Silahkan didoawnload ==> filenya <==