'*********************************************************
' Property IsMatchToDbcConnectString(
'          bstrConnectionString As String) As Boolean
'
' Devuelve True si la cadena que se le pase como argumento
' es la cadena de conexión de la base de datos actual.
'
' Argumentos:
'   bstrConnectionString: Cadena que contiene la
'   expresión a evaluar
'
Sub wzIsMatchToDbcConnectString()

    WizHook.Key = 51488399
    Debug.Print WizHook. _
      IsMatchToDbcConnectString( _
        CurrentProject.Connection)
    
End Sub
'*********************************************************