VB+Access实例：使用ADO连接Access数据库。PrivateSubForm_Load()DimcnAsNewADODB.ConnectionDimrsAsNewADODB.Recordsetcn.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\db_medicine.MDB"rs.Open"tb_kc",cn,adOpenKeyset,adLockOptimistic'adOpenKeyset打开键集