关于OleDbCommand执行存储过程的问题

Question

example>>
'tbVaue1,tbValue2......是指数居库表值
<script Language="VB" runat="server">Sub InsertData(sender as Object, e as EventArgs)
dim conn as oledbconnection
dim cmd as oledbcommanddim provider="provider=Microsoft.Jet.OLEDB.4.0"
dim database="data source=" & server.MapPath("database.mdb")
conn=new oledbconnection(provider & ";" database)
conn.open()dim sql as string
sql="Insert Into table(tbValue1,tbValue2......)" & "Values(?,?,......)"
cmd=New OleDbCommand(sql,conn)cmd.parameters.Add(New OleDbParameter(tbValue1,OleDbType.Integer)
cmd.parameters.Add(New OleDbParameter(tbValue2,OleDbType.Integer)
                    .
                    .
                    .
cmd.Parameters("tbValue1").Value=tbValueDa1
cmd.Parameters("tbValue2").Value=tbValueDa2
                    .
                    .
                    .cmd.ExecuteNonQuery()
if err.number<> then
response.write("Error")
else
response.write("right")
end ifconn.close()
end sub
</script>