代码如下....   
 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