Public Shared Function ToInteger(ByVal objVal As Object) As Integer Try If IsNothing(objVal) OrElse IsDBNull(objVal) Then Return 0 Else Return CInt(objVal) End If Catch ex As Exception Throw ex End TryEnd Function
Login to post response