请各位大哥帮小第一把，很简单的

Question

小第我想写一个跳出提示信息的程序（数据库中有多少条记录）程序一部分如下：Set rs = New ADODB.Recordset            rs.CursorLocation = adUseClient
            rs.LockType = adLockReadOnly
      rs.Open "select * from CWMB ", conn, adOpenDynamic, adLockReadOnly
      
   （像：）   MsgBox "发现数据库中有" & rs.RecordCount, vbInformation, "提示："
       但是这样是不行的请问一下该怎么写啊，拜托，在线等待！！！

Answer 1

试试
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.LockType = adLockReadOnly
rs.Open "select * from CWMB ", conn, adOpenDynamic, adLockReadOnly
rs.movelast
MsgBox "发现数据库中有" & str(rs.RecordCount()), vbInformation, "提示："

Answer 2

MsgBox "发现数据库中有" & Format(rs.RecordCount), vbInformation, "提示："

Answer 3

以adOpenDynamic方式打开的记录集得不到rs.RecordCount
用adOpenStatic

Answer 4

工程--->引用--->Microsoft ActiveX Data Object 2.x（版本号）    Dim CN   As New ADODB.Connection                '定义数据库的连接
    Dim Rs   As New ADODB.Recordset    CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\NWIND.MDB;Persist Security Info=False"
    CN.Open    Rs.CursorLocation = adUseClient
    Rs.Open "select * from CWMB", CN, adOpenDynamic,  adLockReadOnly    MsgBox "发现数据库中有" & str(rs.RecordCount()), vbInformation, "提示："

Answer 5

to ch21st(风尘鸟) :你的说法是错的！