Recordset.Open med Command Object fungerer ikke

Jeg har følgende kode:
Set Conn = Server.CreateObject("ADODB.Connection")
Set cmd = Server.CreateObject("ADODB.Command")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="& DBPath &"; User Id=;Password="   
   
Conn.open DSN
cmd.CommandText = "SELECT * FROM Users;"
cmd.CommandType = 1
rsUser.open cmd, Conn, 1, 3
Response.Write(rsUser("username"))
rsUser.close

Men den fejler:
Microsoft VBScript runtime error '800a01a8'

Object required: 'rsUser'

/meltinisorg/mlist/data.asp, line 48

Hvorfor gør den det?