[mido790006]

(19-06-21, 09:11 PM)مصمم هاوي كتب :

كود :

 If db.State = 1 Then db.Close
   db.CursorLocation = adUseClient
   db.Provider = "Microsoft.Jet.OLEDB.4.0;"
   db.Open App.Path & "\ Schools.mdb;" & "Jet OLEDB:Database Password=123456;"

شكراً لمرورك 
ولكن ظهرت لى الرسالة دى