Muchas gracias Avellaneda por tu gran Interes

, pero necesito hacerte otra pregunta, ya que has utilizado este procedimiento.
Lo que pasa es que me marca el siguiente error:
Specified owner name 'Excel 6.5;DATABASE=C:\Juan Carlos\VSSafe\ProgramasMacola\RelacionFacturas.xls ' either does not exist or you do not have permission to use it.
Mi codigo es :
Dim ExcelFile As String
Dim HojaExcel As String
Dim Sql As String
Dim Dr As New ADODB.Recordset
On Error GoTo Errores
ExcelFile = App.Path & "\RelacionFacturas.xls"
HojaExcel = "[Hoja1]"
Sql = "Select * Into [Excel 8.0;DATABASE=" & ExcelFile & "]." & HojaExcel & " FROM _TempRelFact"
goConn.Execute (Sql)
Ya probe con Excel 6.0 y 6.5
RelacionFacturas.xls, ya esta creado pero sin datos