Fill DataSet Using Stored Procedure

The following is NOT filling the dataset or rather, 0 rows returned.....The sp.....CREATE PROCEDURE dbo.Comms

@email   NVARCHAR ,@num    INT OUTPUT ,@userEmail    NVARCHAR OUTPUT ASBEGIN DECLARE @errCode   INT

SELECT   fldNum, fldUserEmailFROM tblCommsWHERE fldUserEmail = @email SET @errCode = 0 RETURN @errCode

HANDLE_APPERR:

 SET @errCode = 1 RETURN @errCodeENDGOAnd the code to connect to the sp - some parameters have been removed for easier read.....

Dim errCode As Integer

Dim conn = dbconn.GetConnection()

Dim sqlAdpt As New SqlDataAdapter

Dim DS As New DataSet

Dim command As SqlCommand = New SqlCommand("Comms", conn)

command.Parameters.Add("@email", Trim(sEmail))

command.CommandType = CommandType.StoredProcedure

command.Connection = conn

sqlAdpt.SelectCommand = command

Dim pNum As SqlParameter = command.Parameters.Add("@num", SqlDbType.Int)

pNum.Direction = ParameterDirection.Output

Dim pUserEmail As SqlParameter = command.Parameters.Add("@userEmail", SqlDbType.NVarChar)

pUserEmail.Size = 256

pUserEmail.Direction = ParameterDirection.Output

sqlAdpt.Fill(DS)

Return DS

Like I said, a lot of parameters have been removed for easier read.And it is not filling the dataset or rather I get a count of 1 back and that's not right.I am binding the DS to a datagrid this way....

Dim DScomm As New DataSet

DScomm = getPts.getBabComm(sEmail)

dgBabComm.DataSource = DScomm.Tables(0)

And tried to count the rows DScomm.Tables(0).Rows.Count and it = 0Suggestions?Thanks all,Zath