Rewriting Proc As TVF

I am having problems rewriting this proc as a TVF. I have been over the samples but I am struggling




Code Snippet
Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.SqlTypes
Imports System.Management
Imports Microsoft.SqlServer.Server

Partial Public Class StoredProcedures
<Microsoft.SqlServer.Server.SqlProcedure()> _
Public Shared Sub pnetWMI(ByVal sComputer As String, ByVal sWQL As String, ByVal sCounter As String)
Try

Dim searcher As New ManagementObjectSearcher( _
"\" & sComputer & "
ootCIMV2", _
sWQL)
For Each queryObj As ManagementObject In searcher.Get()
Dim record As New SqlDataRecord( _
New SqlMetaData(sCounter, SqlDbType.VarChar, 100))
SqlContext.Pipe.SendResultsStart(record)
record.SetString(0, queryObj(sCounter))
SqlContext.Pipe.SendResultsRow(record)
Next
SqlContext.Pipe.SendResultsEnd()
Catch ex As Exception
Dim sp As SqlPipe = SqlContext.Pipe()
sp.Send(ex.Message)
End Try
End Sub
End Class






This what I have. It doesn't like my table definition or my use of the input parameters in the sub. Whats wrong?





Code Snippet
Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.SqlTypes
Imports System.Management
Imports Microsoft.SqlServer.Server
Partial Public Class UserDefinedFunctions
_
Public Shared Function fnetWMI(ByVal sComputer As String, ByVal sWQL As String, ByVal sCounter As String) As IEnumerable
Return New SqlDataRecord(New SqlMetaData(sCounter, SqlDbType.VarChar, 100))
End Function
Public Shared Sub FillRow(ByRef PerfValue As SqlChars)
Try
Dim searcher As New ManagementObjectSearcher( _
"\" & sComputer & "
ootCIMV2", _
sWQL)
For Each queryObj As ManagementObject In searcher.Get()
Dim record As New SqlDataRecord( _
New SqlMetaData(sCounter, SqlDbType.VarChar, 100))
SqlContext.Pipe.SendResultsStart(record)
record.SetInt32(0, queryObj(sCounter))
SqlContext.Pipe.SendResultsRow(record)
Next
SqlContext.Pipe.SendResultsEnd()
Catch ex As Exception
Dim sp As SqlPipe = SqlContext.Pipe()
sp.Send(ex.Message)
End Try
End Sub
End Class