How to call DB2 UDTF from VB.NET

Public Function PumpTransaction() As Boolean
            Dim thisResult As Boolean = True
            Status = 0
            StatusMessage = "Success."

            Dim myDB2Connection As iDB2Connection
            Dim myDB2Command As iDB2Command
            Dim myDB2DataReader As iDB2DataReader

            'Define the ODBC Connection string
            myDB2Connection = New iDB2Connection("DataSource=" & globalConnectionSelected & _
                                                 "; UserID=" & _
                                                 constAS400_UID & _
                                                 ";Password=" & _
                                                 constAS400_PWD)

            Dim myConnectionOpen As Boolean = False
            Try
                'Open the Connection
                myDB2Connection.Open()
                myConnectionOpen = True

                Dim thisCommandString As String = "  SELECT ERRORCODE, ERRORTEXT FROM TABLE(DPLIB06.SMBB("
                thisCommandString += CoNo.ToString + ",'" + _CallerID.Trim.ToUpper + "','" + PartNo.Trim.ToUpper + "','"
                thisCommandString += LocFrom.Trim.ToUpper + "','" + LocTo.Trim.ToUpper + "'," + CStr(Qty) + ")) RESULTS"

                myDB2Command = New iDB2Command(thisCommandString, myDB2Connection)

                Dim myCommandString As String = myDB2Command.CommandText

                myDB2DataReader = myDB2Command.ExecuteReader

                If myDB2DataReader.HasRows Then
                    myDB2DataReader.Read()
                End If
                myDB2DataReader.Close()
            Catch ex As Exception
                Status = -1
                StatusMessage = String.Format("{0}: {1}", System.Reflection.MethodBase.GetCurrentMethod().Name, ex.Message)
            End Try

            If myConnectionOpen Then
                myDB2Connection.Close()
            End If

        End Function