初学都求助！！关于 Access的问题！！

[caifw]

我根据网上查到的资料写了一段查询mdb数据库表记录数
要怎么样才能把查询得到的记录数显示出来啊？？？

Private Sub Form_Load()
Dim adoRS As New ADODB.Recordset
Dim adoCM As New ADODB.Command
Dim strConn As String
Dim strSQL As String
Dim strDataFile As String
Dim strTableName As String

strDataFile = "f:\ls\20031013.mdb"
strTableName = "dzjcdata"
strConn = "Data Source=" & strDataFile & ";Provider=Microsoft.Jet.OLEDB.4.0"
strSQL = "select count(*) from " & strTableName
adoRS.Open strSQL, strConn, 1, 3

adoRS.Close

End Sub

[shaidanR]

do while not adors.eof
text1=adors.fields(0)
adors.movenext
loop

[守城小轩]

可以用DBfrid控件进行显示

[守城小轩]

更正：
DBfrid——>DBGrid控件

[sword281]

Private Sub Form_Load()
Dim adoRS As New ADODB.Recordset
Dim adoCM As New ADODB.connection
Dim strConn As String
Dim strSQL As String
Dim strDataFile As String
Dim strTableName As String

strDataFile = "f:\ls\20031013.mdb"
strTableName = "dzjcdata"
strConn = "Data Source=" & strDataFile & ";Provider=Microsoft.Jet.OLEDB.4.0"
cn.cursorlocation=aduseclient
cn.open strconn
strSQL = "select count(*) from " & strTableName
adoRS.Open strSQL, strConn, 1, 3
text1.text=adors.fields(0).value
adoRS.Close

End Sub

[sword281]

adoRS.Open strSQL, strConn, 1, 3
改为
adors.open strsql,adocm,1,adcmdtext

[caifw]

谢谢已经可以显示了，不过显示出来的是False。
这是怎么回事，请指教！！