Koneksi Database ke VB6

Selamat pagi semua...apa kabar nya?masih semangat belajar ngoding? Oke yang semangat ya...ni gw tambahin ilmu satu lagi....
dalam pembuatan aplikasi, apalagi aplikasi berbasis data, tidak mungkin lepas dari database. Nah sayang nya masih cukup banyak yang gak tau caranya melakukan koneksi database ke vb6, oke nih gw kasih contoh script koneksi ke database,Sql dan Ms.Access.
Berikut koneksi ke Sql server :

Dim cn As New ADODB.Connection

Public Sub Koneksi()

On Error GoTo err_Hand 'error handler

Set cn = New ADODB.Connection

    cn.CursorLocation = adUseClient

    strkon = "Provider=SQLOLEDB.1;Password=isi password sql;Persist Security Info=True;User ID=isi username sql;Data Source=isi server atau ip lokasi db;Initial Catalog=security"

    cn.ConnectionString = strkon

    cn.Open     

err_Hand:

        If Err.Number <> 0 Then

            MsgBox (Err.Description)

        End If

    End Sub

oke itu aja gan script nya...simple kan. di setiap baris yang membutuhkan koneksi DB, anda tinggal panggil koneksi ini dengan script "call koneksi"
Untuk koneksi ke Ms.Access berikut scriptnya :

Dim conn As New ADODB.Connection 

NmDatabase = App.Path + "\DBku.mdb"
    If conn.State = 1 Then conn.Close
    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & NmDatabase & ";

Persist Security Info=False" 

Nah untuk koneksi ke Ms.acces 2007 ada sedikit perbedaan di koneksi string nya, cek di bawah :

Dim conn As New ADODB.Connection

conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;  Data Source=C:\MSAccessKu.accdb;Persist Security Info=False;" 

Gimana?mudah kan?selamat Ngoding...^_^v