Count = Rs.RecordCount - Returns -1?

I have this code and it keeps spitting out -1 when I know there are 9 records, please help me.

Randomize

DIM cat,random_number(), counter, check,count

cat = Request("category")
Set cnn1 = Server.CreateObject("ADODB.Connection")
openStr = "driver={Microsoft Access Driver (*.mdb)};" & _
"dbq=" & Server.MapPath("database/images.mdb")
cnn1.Open openStr,"",""

sql = "SELECT * FROM gallery WHERE category = '" & cat & "' Order by ID"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, cnn1, adOpenDynamic, adLockOptimistic, adCmdText

count = rs.RecordCount

redim random_number(9)