Obtener el nombre de la base de datos

Public Function returndb(ByVal conex As String) As String
        Dim data() As String = conex.Split(";")
        Dim db As String = ""
        For Each rd As String In data
            If rd.Contains("atalog") Then
                db = rd.Split("=")(1)
                Exit For
            End If
        Next
        Return db
    End Function