Visual Basic - descargar datos desde Visual a un archivo excel

estoy intentando llenar un archivo de excel, con información de una base de datos creada en as/400 la cual conecto por medio de ODBC atravez de visual. LAS CONEXIONES DE LOS ODBC RELIZAN LA CONEXIÓN CON EL ARCHIVO EXCEL, sin embargo cuan realizo el SQL en visual genera los siguientes errores:


1) Erro de Sintaxis En clausula FROM
2) Motor de base de datos Micrsoft jet no encuentra el archivo Excel especificado.asegurese que la ruta de acceso sea la correcta y que el nombre de archvo exista.

Yo utilizo un control Adoc para conetra el archivo excel. las conexiones y ruta de acceso a l archivo excel se configuran correctamente. pero cuando es llamado al sql en el programa visual, generan los errores menconados.

Si alguien tiene información al respecto. por favor es urgente

Si ocupas enviar datos desde VB para Excel lo puedes hacer asi :

'Captura de errores
On Error Resume Next

'Hace una referencia a la aplicación Excel
Set objExcel = GetObject(, "Excel.Application")

'Si nos da error significa que Excel NO esta en ejecucion
If Err.Number = 429 Then
Err.Clear
'Creamos una NUEVA instancia de Excel
Set objExcel = CreateObject("Excel.Application")
End If

' Mostrar el Excel
objExcel.Visible = True

'Mostramos la version de Excel instalada
'MsgBox objExcel.Version

Ruta = App.Path & "\Reporte.xls"
Set objLibro = objExcel.WorkBooks.Open(Ruta)

Dim Dbs As Database, Resultado As Recordset, Resultado2 As Recordset, Resultado3 As Recordset
Set Dbs = OpenDatabase(App.Path & "\Datos.mdb")

Set Resultado = Dbs.OpenRecordset("SELECT * FROM Altas;")

Resultado.MoveLast
Cuantos = Resultado.RecordCount
Resultado.MoveFirst

For i = 1 To Cuantos
objLibro.Worksheets(1).Range("A" & i).Value = Resultado.Fields(1)
Resultado.MoveNext
Next i

Dbs.Close

Este ejemplo pone en A1,A2,A3 etc.. el valor del campo 1