用vb的ado控件链接的access数据库，怎么计算数据库表中的记录个数并显示在文本框中

我们用的是a=select count(*) from 表名；text1.text=val(a)，但是文本框中总是显示0

参考以下代码写法：

    Dim sqlstr As String
    sqlstr = "select * from jishijilu"
    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\wdOld.mdb;Persist Security Info=False"
    Adodc1.RecordSource = sqlstr
    Adodc1.Refresh
    Set DataGrid1.DataSource = Adodc1
    Text1 = Adodc1.Recordset.RecordCount

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/s7m7sfqpp4m7pvpf8p.html