If you want to use the .recordcount property for an ADO recordset you need to specify a clientside cursor location when opening your connection.

Set dbsSubs = New ADODB.Connection
dbsSubs.CursorLocation = adUseClient