Convert to boolean handling NULL

  Public Shared Function ConvertToBoolean(ByVal value As Object) As Boolean
    Try
      If (value Is Nothing) OrElse (value Is DBNull.Value) Then
        Return False
      Else
        Return Convert.ToBoolean(value)
      End If
    Catch
      Return False
    End Try
  End Function

  Public Shared Function ConvertToBoolean(ByVal value As String) As Boolean
    Try
      If (value Is Nothing) OrElse (value Is DBNull.Value) Then
        Return False
      Else
        Return Convert.ToBoolean(value)
      End If
    Catch
      Return False
    End Try
  End Function