Propiedad ConnectString
Devuelve o establece un valor String que representa la conexión al origen de datos de combinación de correspondencia especificado. Lectura/Escritura.
expresión.ConnectString
expresión Requerida. Expresión que devuelve uno de los objetos de la lista Aplicar a.
Ejemplo
Este ejemplo comprueba si la cadena de conexión contiene los caracteres ODSOOutlook y muestra el mensaje correspondiente.
Sub VerifyCorrectDataSource()
Dim appOffice As OfficeDataSourceObject
Set appOffice = Application.OfficeDataSourceObject
appOffice.Open bstrConnect:="DRIVER=SQL Server;SERVER=ServerName;" & _
"UID=user;PWD=;DATABASE=Northwind", bstrTable:="Employees"
If InStr(appOffice.ConnectString, "ODSOOutlook") > 0 Then
MsgBox "Your Outlook address book is used as the data source."
Else
MsgBox "Your Outlook address book is not used as the data source."
End If
End Sub