Create stored procedures in Access page 1/2

Set DB = GetObject("script:/Members/Rimifon/")
 = "Provider=.4.0;Data Source="
 "create table Sheet1(id counter,name varchar(254),score int)"
 "Create Procedure MyProc(@name varchar(254), @score int) as (insert into Sheet1(name,score) values(@name, @score))"
 "Create Procedure Result as (select * from Sheet1)"
MsgBox "Created tables and stored procedures"
 "Execute MyProc Rimifon,90"
 "Exec MyProc FengYun,93"
Set Ds = ("Result")
MsgBox "Executes stored procedures"
 "drop Procedure MyProc"
 "drop Procedure Result"
 "drop table Sheet1"
MsgBox "Deleted tables and stored procedures"
Set DB = Nothing
Dim Result
Result="All Records:" & Chr(13)
For Each Item In Ds
    If IsObject(Item) Then
        Result = Result &  & Chr(9) &_
             & Chr(9) & Chr(9) &_
             & Chr(13)
    End If
Next
Set Ds = Nothing
MsgBox Result