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
rs.Open "select * from 病人表", conn
rs.MoveLast
patientIDNum = 10000000 + rs.RecordCount + 1
若将rs.moveLase 去掉则不能正确读出rs.RecordCount
rs.CursorLocation = adUseClient
rs.CursorType = adOpenKeyset
然后在open之后可以直接用
rs.RecordCount了,试一下对了的话记得给分哦
rs.Open "select * from 病人表", conn , adOpenKeyset , adLockOptimistic rs.MoveLast
patientIDNum = 10000000 + rs.RecordCount + 1