SoloCodigo

Hola este es uno de los errores q me salen

Error de resolucion de sobrecarga porque ninguna de las funciones split a las que se tiene acceso se puede llamar sin una conversion de restriccion

Como les comentaba es una solucion que esta corriendo y fue desarrollada en visual studio 2003 pero al abrirla en el 2008 me aparecen 2 errores los 2 relacionados con split
Puedo compartir el codigo si estan interesados a los que deseen ayudarme saludos

Private Sub drawTable()
        Dim tabla As String = ""
        Dim fields1 As String = "*"
        Dim scripts1 As String = ""
        Dim keys1 As String = ""
        Dim scriptid As String = ""
        Dim tablaid As String = ""
        Dim keyid As String = ""
        Dim order1 As String = ""
        Dim orderid As String = ""
        Dim group1 As String = ""

        Dim fitem As String
        Dim f() As String
        Dim conditions As New Collection
        Dim x As Integer

        Try
            tablaid = Request.Params("tabla")
            scriptid = Request.Params("scriptid")
            keyid = Request.Params("keyid")
            fitem = search.Item(tablaid)
            Try
                conditions.Add(conds(tablaid))
            Catch
            End Try
            f = fitem.Split("|", 10)
            For x = 0 To f.Length - 1
                Dim p() As String = f(x).Split(",")
                Dim param As String = escape(Request.Params(p(1)))
                If (param <> Nothing And param <> "") Then
                    If (p(2) = "Like%") Then
                        conditions.Add(p(1) & " LIKE '" & param & "%'")
                    End If
                    If (p(2) = "%Like%") Then
                        conditions.Add(p(1) & " LIKE '%" & param & "%'")
                    End If
                    If (p(2) = "=") Then
                        conditions.Add(p(1) & " = '" & param & "'")
                    End If
                    If (p(2) = "Date") Then
                        'conditions.Add(p(1) & " = '" & param & "'")
                    End If
                End If
            Next

        Catch

            End Try

            ' crear condicion de busqueda
            Dim cond As String = ""
            If (conditions.Count > 0) Then
                cond = conditions.Item(1)
                For x = 2 To conditions.Count
                    cond = cond & " AND " & conditions.Item(x)
                Next
            End If
            Dim link1 As String = ""
            Try
                If tablaid <> "" Then
                    tabla = tables.Item(tablaid)
                Else
                    tabla = ""
                End If
            Catch
            End Try
            Try
                fields1 = fields.Item(tablaid)
            Catch
            End Try
            Try
                If scriptid <> "" Then
                    scripts1 = scripts.Item(scriptid)
                Else
                    scripts1 = scripts.Item(tablaid)
                End If
            Catch
            End Try
            Try
                If keyid <> "" Then
                    keys1 = keys.Item(keyid)
                Else
                    keys1 = keys.Item(tablaid)
                End If
            Catch
            End Try
            Try
                order1 = orders.Item(tablaid)
            Catch
            End Try
            Try
                group1 = groups.Item(tablaid)
            Catch
            End Try
            Try
                link1 = links.Item(tablaid)
            Catch
            End Try
            If (tabla <> "") Then
                ShowTable(tabla, fields1, keys1, scripts1, cond, order1, group1, link1)
            Else
                Me.Controls.Add(New LiteralControl("<b>No hay tabla seleccionada</b>"))
            End If


    End Sub