Public Function QueryExcuter(ByVal iParamCount As Integer, _
    ByVal arrInputValues() As String, _
    ByRef arrOutputParams() As String, _
    ByVal sSPName As String, _
    ByVal sDSname As String) As DataSet

    Dim objCon As SqlConnection
    Dim objAdapter As SqlDataAdapter
    Dim cmdCommand As New SqlCommand
    Dim iCount As Integer
    Dim objDataSet As DataSet
    Dim objParam As SqlParameter
    Dim sconnection As String

    Try
        sconnection = "data source =;initial catalog = ; user ID=; password = "
        objAdapter = New SqlDataAdapter
        objCon = New SqlConnection(sconnection)
        objCon.Open()
        objAdapter.SelectCommand = cmdCommand
        objAdapter.SelectCommand.Connection = objCon
        objAdapter.SelectCommand.CommandType = CommandType.StoredProcedure
        objAdapter.SelectCommand.CommandText = sSPName

        Try
            SqlCommandBuilder.DeriveParameters(objAdapter.SelectCommand)

            For iCount = 1 To iParamCount
                If (objAdapter.SelectCommand.Parameters(iCount).Direction = _
                        ParameterDirection.Input) Or _
                        (objAdapter.SelectCommand.Parameters(iCount).Direction = _
                        ParameterDirection.InputOutput) Then

                    objAdapter.SelectCommand.Parameters(iCount).Value = arrInputValues(iCount - 1)
                End If
            Next

            objDataSet = New DataSet(sDSname)
            objAdapter.Fill(objDataSet)
            iCount = 0
            For Each objParam In objAdapter.SelectCommand.Parameters
                If (objParam.Direction = ParameterDirection.Output) Or _
                        (objParam.Direction = ParameterDirection.InputOutput) Then
                    ReDim Preserve arrOutputParams(iCount)
                    arrOutputParams(iCount) = objParam.Value
                    iCount += 1
                End If
                objParam = New SqlParameter
            Next


        Catch ex As SqlException
            objCon.Close()
            Throw ex
        End Try
    Catch ex As Exception
        objCon.Close()
        Throw ex
    End Try
    objCon.Close()
    Return objDataSet

End Function