متد Connect

کد:

    Public Conn As ADODB.Connection
.
.
.
Public Sub Connect()
        Set Conn = New ADODB.Connection
       
        Conn.Provider = "Microsoft.JET.OLEDB.4.0"
        Conn.ConnectionString = App.Path + "\Data Base\Test.mdb"
        Conn.CursorLocation = adUseClient
        Conn.Open
End Sub