سؤالى بخصوص مكتبة ADO

 If DB.State = adStateOpen Then DB.Close
    DB.Provider = "Microsoft.jet.oledb.4.0; Data Source=" & DBPathFileName & ";Persist Security Info=False;Jet OLEDB:Database Password=123;"
DB.Open App.Path & "\Works.mdb"
"Select * From itm"
    If RS.State = adStateOpen Then RS.Close
   RS.Open SQLs, DB, adOpenKeyset, adLockPessimistic