This function:
Public Function RunSP(ByVal SP As String, ByVal ReturnType As ReturnType,
Optional ByVal Params As Hashtable = Nothing) As ObjectDim oCmd As
SqlClient.SqlCommand = WarehouseDBCommand(SP)

Dim SqlParameter As SqlClient.SqlParameter

oCmd.CommandType = CommandType.StoredProcedure

SqlClient.SqlCommandBuilder.DeriveParameters(oCmd)

If Not Params Is Nothing Then

For Each SqlParameter In oCmd.Parameters

If Params.ContainsKey(SqlParameter.ParameterName) Then

If IsDBNull(Params.Item(SqlParameter.ParameterName)) Then

SqlParameter.Value = DBNull.Value

Else

SqlParameter.Value = Params.Item(SqlParameter.ParameterName).ToString

End If

End If

Next

End If

RunSP = RunAndReturn(oCmd, ReturnType)

oCmd.Connection.Close()

oCmd.Dispose() : oCmd = Nothing

Sorry about that; slipped.