[VB.net] Errore di sintassi

[bolzi89]

in effetti FiltroVar è vuota... Comunque non riesco a trovare lo stesso l'errore...
FiltroVar è questa:
FiltroVar = DecSorVar(Me.ComboBox1.Text)

E DecSorVar:

Function DecSorVar(ByVal Nome_Vis As String) As String
Dim Cont As Integer
Dim Nome_Colonna As String


dv_Colonne = New DataView


Nome_Colonna = ""
For Cont = 0 To dv_Colonne.Count - 1
If CStrN(dv_Colonne(Cont)("HeaderText")) = Nome_Vis Then
Nome_Colonna = CStrN(dv_Colonne(Cont)("MappingName"))
Exit For
End If
Next
DecSorVar = Nome_Colonna
End Function

[optime]

in effetti FiltroVar è vuota... Comunque non riesco a trovare lo stesso l'errore...
FiltroVar è questa:
FiltroVar = DecSorVar(Me.ComboBox1.Text)

E DecSorVar:

Function DecSorVar(ByVal Nome_Vis As String) As String
Dim Cont As Integer
Dim Nome_Colonna As String


dv_Colonne = New DataView


Nome_Colonna = ""
For Cont = 0 To dv_Colonne.Count - 1
If CStrN(dv_Colonne(Cont)("HeaderText")) = Nome_Vis Then
Nome_Colonna = CStrN(dv_Colonne(Cont)("MappingName"))
Exit For
End If
Next
DecSorVar = Nome_Colonna
End Function

se DecSorVar restituisce "", probabilmente non trova corrispondenze. controlla bene i valori passati e quelli di riferimento, facendo attenzione al case