gistfile1.bas

        Protected Function RetornaValor(ByVal valor As Object, Optional ByVal retornoPadrao As String = "") As String
            If IsDBNull(valor) Then
                Return retornoPadrao
            Else
                Return valor
            End If
        End Function

'ou

'Usando Generics

    Public Shared Function RetornaValor(Of T)(ByVal valor As T, ByVal valorPadrao As T) As T
        If IsDBNull(valor) Then
            Return valorPadrao
        Else
            Return valor
        End If
    End Function

Função simples que verifica se o valor retornado do banco (ado.net) é null. Se for null retorna o valor padrão.