Create Procedure GetColumnList(@TableName varchar(100), @ColumnList varchar(8000) OUTPUT)
As Begin
	Declare @Result varchar(8000)

	Select @Result = Coalesce(@Result + ',', '') + SC.name 
	From sysobjects so
	inner join syscolumns sc on so.id = sc.id
	Where SO.xtype = 'U'
	And SO.name = @TableName 
	Order By SC.colorder

	Set @ColumnList = @Result
End

--Usage
Declare @Result varchar(8000)
Exec GetColumnList 'sysdtslog90', @Result OUTPUT
Print @Result

        Try
            ' Set up the connection
            Dim sqlConn As SqlConnection = New SqlConnection(ConnectionString)
            sqlConn.Open()

            Dim sqlComm As SqlCommand = New SqlCommand()
            sqlComm.Connection = sqlConn
            sqlComm.CommandType = CommandType.StoredProcedure

            ' Set up the command
            sqlComm.CommandText = "GetColumnList"
            sqlComm.Parameters.AddWithValue("@TableName", "sysdtslog90")
            sqlComm.Parameters.Add("@ColumnList", SqlDbType.VarChar, 8000)
            sqlComm.Parameters("@ColumnList").Direction = ParameterDirection.Output

            ' Get the value
            sqlComm.ExecuteNonQuery()
            Dim arrColumns As String() = sqlComm.Parameters("@ColumnList").Value.ToString().Split(",")

            ' Close connection
            sqlConn.Close()
        Catch ex As Exception
            ' Deal w/ error
        End Try