Propiedad DataSource
Devuelve o establece un valor String que representa el nombre del origen de datos adjunto. Lectura/Escritura.
expresión.DataSource
expresión Requerida. Expresión que devuelve uno de los objetos de la lista Aplicar a.
Ejemplo
El ejemplo siguiente establece el nombre del origen de datos si el nombre está en blanco.
Sub SetAndReturnDataSourceName()
Dim appOffice As OfficeDataSourceObject
Set appOffice = Application.OfficeDataSourceObject
With appOffice
.Open bstrConnect:="DRIVER=SQL Server;SERVER=ServerName;" & _
"UID=user;PWD=;DATABASE=Northwind", bstrTable:="Employees"
If .DataSource = "" Then
.DataSource = "Northwind"
MsgBox .DataSource
End If
End With
End Sub