Estimados buenas noches, al compilar este programa en VBA me arroja el siguiente error: Error de Sintaxis (falta operador) en la expresión de consulta..., adjunto imagen por si me puden ayudar, gracias.

Function GetDataFromTable(strWsName As String, strListObjectName As String, strFilter As String) As ADODB.recordset
Dim ws As Worksheet
Dim lo As ListObject

Set ws = ThisWorkbook.Sheets(strWsName)
Set lo = ws.ListObjects(strListObjectName)

'Crear un conector ADODB para poder ejecutar sentencias SQL
Dim recordset As New ADODB.recordset
Dim connection As New ADODB.connection
Dim sqlQuery As String

With connection
.Provider = "Microsoft.ACE.OLEDB.12.0"
.ConnectionString = "Data Source=" & ThisWorkbook.FullName & ";" & _
"Extended Properties =""Excel 12.0 Xml;HDR=Yes"";"
.Open
End With
If strFilter vbNullString Then strFilter = " WHERE " & strFilter
sqlQuery = " SELECT * FROM [" & strWsName & "$" & lo.Range.Address(0, 0) & "]" & strFilter
Debug.Print sqlQuery
Set recordset = connection.Execute(sqlQuery) "aqui me arroja el error"
With recordset
.Close
.CursorType = adOpenKeyset
.Open
End With
Set GetDataFromTable = recordset
End Function

• Tienes que conectarte para acceder a las subidas.