Excel vba no reconoce el formato de base de datos de Access

Cordial saludo experto

Por medio del presente deseo pedirle el favor de por que Excel haciendo uso de VBA no reconoce el formato de base de datos Access denotado en la,,linea de código con negrilla, pues al ejecutar el programa me aparece el error '3343' en tiempo de ejecución que hace referencia a que no se reconoce el formato de base de datos,el código que tengo es el siguiente:

Sub exportaraccess()
Dim bd As Database, rs As Recordset, r As Long, por As Long, td As TableDef
'abriendo la base de datos
Set Db = OpenDatabase(ThisWorkbook.Path & "\Reporte_datos_exportados.mdb")
'abriendo Recordset
Set rs = bd.OpenRecordset("Reporte_diario", dbOpenTable)
'recogiendo todos los campos en una tabla
r = 2 'empiezo en la fila 2 de la hoja 1
Do While Len(Range("A" & r).Formula) > 0
'repetir hasta la primera celda vacía de la columna A
With rs
.AddNew
.Fields("Identificación") = Range("A" & r).Value
.Fields("Numero_solicitud") = Range("B" & r).Value
.Fields("Fecha_exportado") = Range("C" & r).Value
.Fields("Lote") = Range("D" & r).Value
.Fields("CodigoAsesor") = Range("E" & r).Value
.Fields("Aprobado") = Range("F" & r).Value
.Fields("Detalle_Devolucion") = Range("G" & r).Value
.Fields("Nombre_Auxiliar") = Range("H" & r).Value
.Fields("Total") = Range("I" & r).Value
.Update
End With
r = r + 1
Loop
por = rs.RecordCount
'cerramos
rs.Close
Set rs = Nothing
bd.Close
Set bd = Nothing
If Error = “” Then
MsgBox "Exportación correcta se han creado " & x & " registros."
End If
End Sub

Gracias por la ayuda

Att. Hernán Camilo

Desde Bogotá