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 ..




Kita Berantas Kebodohan, Tau Diri, Kenal diri, Dan bisa jaga diri..
Hantam Ketidak Pastian Diri, Pengecut Bukanlah Jati Diri Yang Sejati .
Tunjukan pada dunia kita adalah manusia yang harus dipuji !! Karna Kita Pembrontak S.I.D