uid  =  S a

Public Function ExecuteDataset(ByVal ds As DataSet, ByVal DatasetTableName As String, ByVal spName As String, ByVal commandParameters As ArrayList) As DataSet
            Dim cmd As New SqlCommand
            AttachParameters(cmd, commandParameters)
            PrepareCommand(cmd, Connection, CommandType.StoredProcedure, spName)
            'create the DataAdapter & DataSet

            Dim da As SqlDataAdapter
            Try
                da = New SqlDataAdapter(cmd)
                'fill the DataSet 
                da.Fill(ds, DatasetTableName)
                'detach the SqlParameters from the command object, so they can be used again.			
                cmd.Parameters.Clear()
                'return the dataset
            Catch sqlex As SqlException
                Dim tmrex As New ExceptionManagement.TMRException(sqlex.Message)
                Throw tmrex
            Catch ex As System.Exception
                Dim tmrex As New ExceptionManagement.TMRException(ex.Message)
                Throw tmrex
            Finally
                Me.CloseConnection(Me.Connection)
            End Try
            Return ds
        End Function