Fejl i random recordset

hvad har jeg lavet forkert her:

<%
Dim rsProfil
Dim rsProfil_numRows

Set rsProfil = Server.CreateObject("ADODB.Recordset")
rsProfil.Source = "SELECT *  FROM users", MM_gutternes_STRING, 1, 3
If rsProfil.BOF or rsProfil.EOF Then
  Response.write "Ingen poster"
else
randomize
randomNr = Int(rsProfil.RecordCount * rnd())
rsProfil.Move(randomNr)
end if
%>

Fejlmelding:
Microsoft VBScript compilation error '800a0401'

Expected end of statement

/index.asp, line 8

rsProfil.Source = "SELECT *  FROM users", MM_gutternes_STRING, 1, 3
----------------------------------------^