Ok. this my connection code.
and don't forget to add the procedure name if you want to call every function that it has connection to database.
Global Conn As ADODB.Connection
Global rs As ADODB.Recordset
Set Conn = New ADODB.Connection
Conn.Provider = "microsoft.jet.oledb.4.0"
Conn.CursorLocation = adUseClient
Conn.Open App.Path & "\SIS.mdb"