conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\MyData.mdb;Jet OLEDB:DataBase password=123456;"
    rs.Open "select * from 病人表", conn
    rs.MoveLast
    patientIDNum = 10000000 + rs.RecordCount + 1
若将rs.moveLase 去掉则不能正确读出rs.RecordCount

解决方案 »

  1.   

    rs.open之前:
    rs.CursorLocation = adUseClient
    rs.CursorType =  adOpenKeyset
    然后在open之后可以直接用
    rs.RecordCount了,试一下对了的话记得给分哦
      

  2.   

    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\MyData.mdb;Jet OLEDB:DataBase password=123456;"    rs.CursorLocation=adUseClient
        rs.Open "select * from 病人表", conn , adOpenKeyset , adLockOptimistic    rs.MoveLast
        patientIDNum = 10000000 + rs.RecordCount + 1