Koneksi ke Database

# CODE PADA FORM #
=========================

Public koneksi As ADODB.Connection 'Paling atas taruh
--------------------------------------------------------
Function Konek( ) As Boolean
'On Error GoTo out
Set koneksi = New ADODB.Connection
koneksi.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\eka.mdb"
koneksi.CursorLocation = adUseClient
Konek = True
End Function
---------------------------------------------------------------------------------------------------------
Private Sub Form_Load( )
If Konek() Then
MsgBox "coneksi berhasil"
Else
MsgBox "coneksi gagal"
End If
End Sub