用select语句统计数据表记录总数？解决方案

用select语句统计数据表记录总数？？
如题，请高手们写出代码，谢谢！

[解决办法]
Dim conn As New ADODB.Connection
With conn
.ConnectionString = " Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\数据库.mdb"
.CursorLocation = adUseClient
.Open
End With
text1.text = UBound(cnn.Execute("select count(*) from [数据表]").GetRows, 2) + 1
cnn.Close

[解决办法]
Dim conn As New ADODB.Connection
With conn
.ConnectionString = " Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\数据库.mdb"
.CursorLocation = adUseClient
.Open
text1.text = UBound(.Execute("select count(*) from [数据表]").GetRows, 2) + 1
.Close
End With