Hola gente!

Me mareo un poco con el tema de las versiones de Office y sus diferencias.
Tengo instalado en mi máquina Access 2003, y me pidieron que trabaje en una
aplicación que está hecha con Access 2000 y con ADO.

El problema es que la aplicación no funciona, el error que da es "Esta clase
no admite Automatización o no admite la interfaz esperada". Se me ocurre que
puede ser algún complemento, dll u ocx que falta o sobra, pero no encuentro
por ningún lado referencias que me den alguna pista.

El tema es que no tengo disponible una pc con Access 2000, lo más que pude
conseguir es Access 2002. Mi pregunta es si hay por algún sitio una
referencia o documento que me pueda indicar lo que cambia entre versiones o
qué cosas tengo que tener en cuenta si quiero hacer algo en Access 2002 ó
2003 para que funcione en Access 2000, o alguna idea de por qué se puede
presentar este error (si no es tema de las versiones).

MuchÃ***simas gracias y disculpen lo extenso del mensaje

***************************************
Private Sub Boton1_Click()
On Error GoTo Err_Boton1_Click
Dim ExApl As Excel.Application
Dim ExWbook As Excel.Workbook
Dim ExWksheet, ExWksheet1 As Excel.Worksheet
Dim rsTransp, rsHojaR As Recordset
Dim fecha As Date
Dim fechaStr As String

nombre = "C:\carpeta\archivo_excel.xls"
mensaje = "Ruta y nombre de la planilla:"
tit = "Titulo"
Path = InputBox(mensaje, tit, nombre)
If Path = "" Then Exit Sub
fecha = Date + 1

Set ExApl = CreateObject("Excel.Application")
Set ExWbook = ExApl.Workbooks.Open(Path, 0, True)

Set rsTransp = New ADODB.Recordset
condicion = "(tabla1.campo1)= 'abierto'"
inst = "sentencia sql"
rsTransp.Open inst, CurrentProject.Connection, adOpenStatic,
adLockReadOnly
Set ExWksheet = ExWbook.Worksheets(1)
ExWksheet.Visible = True
If rsTransp.RecordCount > 1 Then
For i = 2 To rsTransp.RecordCount
ExWksheet.Copy After:=ExWbook.Sheets(1)
Next i
End If
Set rsHojaR = New ADODB.Recordset
inst1 = "otra sentencia sql"
condicion1 = " (tabla1.campo1 = 'abierto') "
i = 1
Do While Not rsTransp.EOF
k = 9
condicion2 = " (tabla1.campo2 = " & rsTransp(1) & ") "
condicion = condicion1 & " AND " & condicion2
inst = inst1 & " WHERE (" & condicion & ")"
inst = inst & " ORDER BY tabla1.campo3;"
rsHojaR.Open inst, CurrentProject.Connection, adOpenStatic,
adLockReadOnly
Set ExWksheet = ExWbook.Worksheets(i)
ExWksheet.Select
ExWksheet.Name = rsTransp(0)
ExWksheet.Cells(2, 14).Value = rsTransp(0)
ExWksheet.Cells(1, 19).Value = fecha
Do While Not rsHojaR.EOF
ExWksheet.Cells(k, 1).Value = k - 8
ExWksheet.Cells(k, 1).Interior.ColorIndex = 47
ExWksheet.Cells(k, 1).Font.ColorIndex = 2
For j = 1 To 19
ExWksheet.Cells(k, j).Borders.LineStyle = xlContinuous
ExWksheet.Cells(k, j).Borders.Weight = xlThin
Next j
For j = 2 To 19
ExWksheet.Cells(k, j).Value = rsHojaR(j - 2)
Next j
k = k + 1
rsHojaR.MoveNext
Loop
i = i + 1
rsHojaR.Close
rsTransp.MoveNext
Loop
rsTransp.Close
fechaStr = Format(Month(fecha), "00") & "_" & Format(Day(fecha), "00")
nombre = "C:\carpeta\archivo_nuevo"
nombre = nombre & "_" & fechaStr & ".xls"
mensaje = "Ruta y nombre de la planilla:"
tit = "Titulo"
Path = InputBox(mensaje, tit, nombre)
If Path = "" Then Exit Sub
ExWbook.SaveAs Path
ExWbook.Close
ExApl.Quit

Exit_Boton1_Click:
Exit Sub

Err_Boton1_Click:
MsgBox Err.Description
Resume Exit_Boton1_Click
End Sub
***************************************