代码如下....
cn.CursorLocation = adUseClient
strsql = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\综合设计\高速公路收费系统\db.mdb;Persist Security Info=False"
cn.ConnectionString = strsql
cn.Open rs.LockType = adLockReadOnly
rs.CursorType = adOpenForwardOnly
strsql2 = "select * from 员工资料表"
Set rs.ActiveConnection = cn
rs.Open strsql2
cn.CursorLocation = adUseClient
strsql = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\综合设计\高速公路收费系统\db.mdb;Persist Security Info=False"
cn.ConnectionString = strsql
cn.Open rs.LockType = adLockReadOnly
rs.CursorType = adOpenForwardOnly
strsql2 = "select * from 员工资料表"
Set rs.ActiveConnection = cn
rs.Open strsql2
rs.open strsql2,cn,4,2
strsql = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\综合设计\高速公路收费系统\db.mdb;Persist Security Info=False"
rs.open "select * from 员工资料表",cn,adLockReadOnly,adOpenForwardOnly