Brain dissolve - record count [Resolved]

[salvelinus]

How do I find out the recordcount of a table? I don't know if my brain's dissolving or a problem with Access (help files are disappearing, so maybe...)
I had

dim db as database
dim rs as recordset
set db = currentdb
'error on next line - type mismatch
set rs = db.openrecordset("select * from tablename")
if rs.recordcount > 0 then
....
else
....
end if

I swear this works in at least Access 97, but not in 2000. I know this is simple but I'm blanking out on it. Thanks.

[BrianB]

Try this :-

set rs = db.openrecordset("tablename")
rs.MoveLast
if rs.recordcount > 0 then

Sometimes I find problems passing arguments requiring string concatenation to a function. It seems safer to use a string variable. eg.
set rs = db.openrecordset(MyString)

[salvelinus]

I'm wondering if the problem is with Access 2000 being corrupted. The entire function is below. I keep getting a type mismatch at the Set rs = db.OpenRecordset(...) line. I've substituted strSQL, the actual table name, mstrLogName (the table name in a variable) in the argument, no luck. A watch on CurrentDb and db right before that line shows correct types, but no values. This is a form in a database called Test. This is really confusing.
Thanks for any help.

[edit]
Resolved. There were references to both dao and ado. I'd checked references, but to make sure they were there, not that they weren't. Declaring rs as dao.recordset fixed the problem.
[/edit]

Private Function FindExistingRecords() As Boolean
Dim db As Database
Dim rs As Recordset
Dim strSql As String
 
FindExistingRecords = False
strSql = "SELECT * FROM " & mstrLogName '& ";"
 
Set db = CurrentDb
Set rs = db.OpenRecordset(mstrLogName)
rs.MoveLast
 
If rs.RecordCount > 0 Then
    FindExistingRecords = True
    MsgBox (rs.Fields.Count)
End If
End Function