Cara untuk Mengkoneksikan DataBase Ms. Acces dengan Visual Basic 6.0 agar Project bisa Dipindah Dimanapun

Pagi sobat Ferason...
Disini sekarang saya memberikan cara mengkoneksikan database Ms. Access dengan Visual Basic 6.0.
Saya mengkoneksikannya dengan Data Environment, karena lebih mudah. Setahu saya, ada 2 cara untuk mengkoneksikan database Ms. Access dengan Visual Basic 6.0, dengan Data Environment atau ADODB.

Sekarang langsung saja caranya:
1. Pilih dan klik menu Project
2. Klik add Data Environment
3. Di bagian kiri (tab Project Explorer), klik 2x Data Environment
4. Klik kanan pada connection1, pilih add command dan rename dengan nama (terserah anda)
5. Klik kanan pada connection1, pilih properties
6. Pilih Microsoft Jet 4.0 OLE DB Provider (karena disini menggunakan database 2003 (format.mdb)) dan pilih next
7. Browse database anda, kemudian test connection
8. Jika keluar pesan failed, coba pilih lagi atau database anda dalam keadaan terbuka (tutup dulu)
9. Jika keluar pesan success, klik OK

Sampai disini sudah sudah membuat Data Environment dan mengkoneksikannya. Mas, saat saya pindah projectnya kenapa error? Lah, sekarang memberikan script agar project bisa dipindah dimanapun (beserta databasenya loh ^_^).
1. Select connection1
2. Copy connection source yang ada di properties windows
3. Klik 2x di data environment
4. Ketikkan script seperti dibawah ini

Private Sub DataEnvironment_Initialize()
With Connection1
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=J:\Kuliah\Semester 3\Praktikum VB 2\UTS\DB\DB_mahasiswa.mdb;Persist Security Info=False"
End With
End Sub

Ganti yang huruf miring dengan connection source kamu tadi (paste)
5. Setelah ini, ganti yang huruf tebal menjadi App.Path (seperti dibawah ini)

Private Sub DataEnvironment_Initialize()
With Con
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DB\DB_mahasiswa.mdb;Persist Security Info=False"
End With
End Sub

Jika sudah, save data environment tersebut. Setelah ini, kita sudah bebas menaruh project kalian dimanapun tanpa error saat d run(dengan databasenya).