dim Cn as New ADOB.Connection
dim Rs as New ADOB.RecordSet
 
  with Cn
    .CursorLocation=adUseClient
    .Mode=adModeShareDenyNone
    .Provider="Microsoft.Jet.OLEDB.4.0"
    .Properties("Data Source")=App.Path + "\RiS.mdb"
    .Open
  end with
 
  with Rs
    .CursorType=adOpenDynamic
    .LockType=adLockOptimistic
    .Open "SELECT * FROM User", Cn
  end with