Importar de sqServerl a access

¡ Hola !

Tengo una consulta con la que obtengo datos de una Base de Datos de SQLServer a excell, ahora quiero trabajar con Access y no se si la puedo aplicar en Access. Preferiría importar de esta forma la información y no con tablas vinculadas. Se puede??

Dim cnVta As ADODB.Connection
Set cnVta = New ADODB.Connection

Dim strConn As String
' *** se hace la conexion a la base de datos ***
strConn = "PROVIDER=SQLOLEDB;"
strConn = strConn & "DATA SOURCE=myserver;INITIAL CATALOG=myserver;USER ID=myuser;PASSWORD="

cnVta.Open strConn

Dim rsCte As ADODB.Recordset

Set rsCte = New ADODB.Recordset

ActiveSheet.Range("A2").Activate
' *** Consulta a la base de datos Ventas ***
With rsCte
.ActiveConnection = cnVta
.Open "(SELECT cliente, nombre FROM cte WHERE estatus = 'ALTA') UNION (SELECT proveedor, nombre FROM prov WHERE estatus = 'ALTA')"
ActiveCell.CopyFromRecordset rsCte
ActiveSheet.Range("A2").CopyFromRecordset rsCte
.Close
End With

' *** Se cierra el RecorSet ***
cnVta.Close
Set rsCte = Nothing
Set cnVta = Nothing