[w123eg]

(22-12-17, 10:40 PM)sendbad100 كتب :

كود :

Public DB       As New ADODB.Connection
Public RSFILE       As New ADODB.Recordset
Public Sub Connect_DB()
If DB.State = adStateOpen Then _
   DB.Close
   
   DB.CursorLocation = adUseClient

   DB.Provider = "Microsoft.ACE.OLEDB.12.0;"
   DB.Open App.Path & "\Data.accdb"

End Sub

جزاك الله كل خير