VB怎么获取SQL库某表的记录数

VB如何获取SQL库某表的记录数？
我是用以下语句查询并连接SQL数据库的
  strSQL = "SELECT * FROM " & strTab
  rsTable.Open strSQL, pubConn, adOpenDynamic, adLockOptimistic
  下面如何获取strTAB中的记录总数呢？
  有的说，用strSQL = "SELECT count(*) FROM " & strTab 这个语句查询，都搞不清了。
   
  这个语句 MsgBox "表" & strTab & "中共有" & rsTable.RecordCount & "条记录！"
查到的是“-1”
   
  请各位指点，谢谢！


[解决办法]

VB code

strSQL = "SELECT count(*) as i FROM " & strTab rs.open strsql,conn,adopenkeyset,adlockreadonlyif rs.recordcount>0 then    if not isnull(rs!i) then        MsgBox "表" & strTab & "中共有" & rs!i & "条记录！"    end ifend ifrs.close
[解决办法]
pubConn.Execute("select rowcnt from sysindexes where id=object_id('" & "gform" & "')")!rowcnt
[解决办法]
在最前面加上一句，使用客户端游标打开
pubConn.CursorLocation = adUseClient