Buenas tengo el siguiente código que funciona bien todo excepto en la línea en la que se pasan los registros de la tabla mysql al archivo de excel y que he puesto en color rojo para que se distinga, base_datos e inscripcion están declarados en las declaraciones principales del formulario.


Private Sub Crear_Lista_Inscritos_Click()
'PROCEDIMIENTO PARA CREAR UN ARCHIVO CON LA LISTA DE INSCRITOS
'Añadir una referencia a MS Excel xx.0 Object Library
'Añadir una referencia a MS ActiveX Data Objects 2.x Library


Dim oApp As Excel.Application
Dim oWB As Excel.Workbook
Dim i As Integer
'Connectar a tu bases de datos Access
Set Base_Datos = New ADODB.Connection
Set Inscripcion = New ADODB.Recordset


Base_Datos.ConnectionString = "driver={MySQL ODBC 3.51 Driver}; Option=3;" _
& "server=OFICINA;uid=root;pwd=liberiano;database=Co mpetencias;connection="

Base_Datos.Open
ConsultaSql = "SELECT inscripciones.categoria, inscripciones.numero_competencia, inscripciones.nombre," _
& " inscripciones.primer_apellido, inscripciones.segundo_apellido FROM inscripciones where fecha_competencia = '2011-05-01' ORDER BY categoria,primer_apellido "

Inscripcion.Open ConsultaSql & ";", Base_Datos

'Crear una instancia de Excel y añadir un nuevo libro de trabajo en blanco
Set oApp = New Excel.Application
oApp.Visible = False
Set oWB = oApp.Workbooks.Add
'Agregar los nombres de campo como columna (opcional)
For i = 0 To Inscripcion.Fields.Count - 1
oWB.Sheets(1).Cells(1, i + 1).Value = Inscripcion.Fields(i).Name
Next

oWB.Sheets(1).Range("1:1").Font.Bold = True
Inscripcion.MoveFirst
Inscripcion.MoveNext

oWB.Sheets(1).Cells(2, 1).CopyFromRecordset Inscripcion ESTA ES LA LINEA QUE ME DA EL SIGUIENTE ERROR "Error en el metodo 'CopyFromRecordset' del objeto 'Range'"


'Limpiar el objeto ADO
Inscripcion.Close
Set Inscripcion = Nothing
Base_Datos.Close
Set Base_Datos = Nothing
'Limpiar el objeto Excel
oWB.Close SaveChanges:=True, FileName:="C:\Documents and Settings\Administrador\Escritorio\LISTADO DE INSCRITOS.xls"
Set oWB = Nothing
oApp.Quit
Set oApp = Nothing
End Sub

Les agradezco desde ya toda la ayuda que me puedan brindar, saludos