Feed multiple parameters from a stored procedure into Access DB

[BobbieMorrow]

I have just started working with MySQL and converting one of our company's larger database. What I want to do is send a variable to the stored procedure and return another variable to access for testing. I keep getting the error, expected 2 got 1 when I execute the below code:

Dim ds As ADODB.Recordset
Dim Comm As ADODB.Command
Dim SQL As String
Dim OConn As Connection
Dim Part As String
Dim Filling As String
Dim myPam As ADODB.Parameter, myparam2 As ADODB.Parameter

Part = "T24488-0000-000" (equals form value, just setting variable to test)

Dim intRowsReturned As Integer

Set OConn = New ADODB.Connection

OConn.ConnectionString = "Driver={MySQL ODBC 3.51 Driver};" & _
"Server=servername;" & _
"Database=databasename;" & _
"User=user;" & _
"Password=password;" & _
"Option=3;"

OConn.CursorLocation = adUseClient
OConn.Open

Set Comm = New ADODB.Command
Set ds = New ADODB.Recordset

Comm.ActiveConnection = OConn
Comm.CommandText = "sp_STIFillingYarn"
Comm.CommandType = adCmdStoredProc
Set myPam = Comm.CreateParameter("@snum", adVarChar, adParamInput, 50, Part)
Comm.Parameters.Append myPam
myPam.Value = Part


'Code crashed on this line
Set ds = Comm.Execute

Filling = ds.Fields.Item("@FillYarn")

Please help.