[مصمم هاوي]

كود :

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;"