> ' Avoid to receive a null > ' expC1 Value > Public Function GetNonNullable(ByVal tcValue As String) As String > Dim lcValue As Integer = "" > > ' If we have a value > If Not tcValue Is DBNull.Value Then > lcValue = tcValue > End If > > Return lcValue > End Function >You're dim'ing lcValue as integer but filling it with a string.... ???