VB6 ADODB.Recordset RecordCount property always returns -1

Question

I am trying to get some old VB6 code to work with SQL Server Compact.

I can connect, open the database and all seems well. I can run insert select commands which

Answer 1

Set cn = CreateObject("ADODB.Connection")

strVerb = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
    "Data Source=C:\test.accdb"

tab1 = "tabelle1"

strSQL = "SELECT Count(*) FROM " & tab1

Debug.Print strSQL
         
cn.Open strVerb
Set rs = cn.Execute(strSQL)

Debug.Print rs.Fields(0)
    
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing