Sintax error in FROM clause

Intento subir un archivo excel como tabla access, para eso primero elimina la tabla si es que existe, despues sube el archivo, pero marca error en la sentencia SELECT

Sub actualizar_bd()

Dim ConAccess As ADODB.Connection
Dim ConExcel As String, obSQL As String
Dim Origen As String, Destino As String

Set ConAccess = New ADODB.Connection
ConAccess.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=Z:\Cost of Quality\2019\QRs-2019.accdb;"

On Error GoTo Control
obSQL = "DROP TABLE [QRS_eds];"
ConAccess.Execute obSQL
Control:

ConExcel = "' & Cells(3,2).Value & ' 'Excel 8.0;HDR=Yes;"

Origen = "[Sheet1$]"
Destino = "[QRS_eds]"

obSQL = "SELECT * INTO " & Destino & " FROM " & Origen & " IN " & ConExcel
ConAccess. Execute obSQL
ConAccess. Close

End Sub

Añade tu respuesta

Haz clic para o