lancer procedure stockée

Bonjour
Je souhaite a partir d'un page d'acces aux données à lancer une prodécure
stocké qui contient un parametre.
le code suivant ne fonctionne pas ....

Dim Con
Dim Rst
Dim StrSQL
Dim Server
dbpath = Server.MapPath("C:\DataBase\mabase.mdb") <-* ligne
d'erreur
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};"_ & " DBQ=" & dbPath

Set Rst = CreateObject("ADODB.Recordset")

Comm.ActiveConnection = Con Comm.CommandText = "aessai"
Set Parametre2 = Comm.CreateParameter("Param_Resume",adWChar,adParamInput,
50, "b")
Comm.Parameters.Append Parametre2
Set Rst = comm.Execute
While Not Rst.eof
alert(rst(0))
Wend

Il met le message suivant 'Objet Server requis' sur la ligne <-*

Si QQun à une idée

Merci par avance

Arpat