[B] براي اينكه از نوشتن كد هاي اضافي پرهيز كنم ميام يك روال به اسم Connect مي سازم كه كارش اتصال و باز كردن بانك اطلاعاتي هستش و در هر جا كه خواستم ازش استفاده مي كنم:
[/B]

کد PHP:
 کد:
     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