Pertama anda buka Microsoft Visual Basic 6.0 , kemudian Buat sebuah Module di VB. dan tulislah Kode di bawah ini di dalam modul tersebut.
Seperti Ini Sreenshoot nya
Public Conn As New ADODB.Connection
Public KoneksiData As String
Public RSData As New ADODB.Recordset
Sub Main() ' buatlah Sub Main untuk membuka awal project
Call BukaDB
frm_MAIN.Show 'Membuka Form
End Sub
Sub BukaDB()
Set Conn = New ADODB.Connection
Set RSData = New ADODB.Recordset
Conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Database\SISGM.mdb"
End Sub
Note : Sub Main berfungsi untuk menjalankan Project di Awal...Setting Sub Main tersebut di Project > NamaProject Properties > Pilih Startup Object dengan Sub Main ..