Access 2013 here and no error is thrown with my syntax, but the Delete statements are not executing. What is incorrect in this syntax?

Code:
Public Function Remove()
Dim con As ADODB.Connection: Set con = New ADODB.Connection
Dim cmd As ADODB.Command: Set cmd = New ADODB.Command
Dim rs As ADODB.Recordset: Set rs = New ADODB.Recordset
Dim beginsequence As String, endsequence As String
beginsequence=Me!lowestnumber
endsequence=Me!highestnumber


con.Open "Valid SQL Connection String;"
cmd.ActiveConnection = con
cmd.Parameters.Append cmd.CreateParameter("beginsequence", adVarChar, adParamInput, 25, beginsequence)
cmd.Parameters.Append cmd.CreateParameter("endsequence", adVarChar, adParamInput, 25, endsequence)
cmd.CommandText = "Remove"
Set rs = cmd.Execute(, , adCmdStoredProc)


End Function




Create Procedure [dbo].[Remove]
(
	@beginsequence varchar(100)
	,@endsequence varchar(100)
)
AS


DELETE FROM prod1
WHERE Serial BETWEEN @beginsequence AND @endsequence


DELETE FROM prod2
WHERE OrderID BETWEEN @beginsequence AND @endsequence