Problemas con nombres de archivos y tablas

Hola Tavopz como te va, espero que bien... Oye una consulta estoy
trabajando con una procedimiento de VBA, el cual va y abre un archivo de
Access y lo pasa a Excel... Solamente que dicho archivo se actualiza cada mes
y el nombre va cambiando solamente lo que siempre es constante es la
extensión (.mdb), ya trate de colocarle algún comodín (* ¿o?), pero no
funciona, por otro lado de este archivo escojo ciertas tablas que necesito e
igualmente el nombre de dichas tablas va cambiando cada mes lo único que
siempre es constante son los primero 5 caracteres (CDEBAS), igualmente trate
de colocarle los comodines que te menciono anteriormente, pero no resulta,
tu pudieras darme una idea al respecto.
De antemano te agradezco la atención y te envío la parte del código para
que te sea más ilustrativo.
Saludos
ActiveSheet.QueryTables.Add(Connection:= _
"ODBC;DSN=MS Access
Database;DBQ=A:\04091793.mdb;DefaultDir=A:;DriverId=281;FIL=MS
Access;MaxBufferSize=2048;PageTimeout=5;" _
, Destination:=Range("A1"))
.CommandText = Array( _
"SELECT CDEBAS012004.EBIA_CVE_UNIT, CDEBAS012004.EBIA_NUM_AFIL,
CDEBAS012004.EBIA_TIPO_TRAB, CDEBAS012004.EBIA_NOM_TRAB,
CDEBAS012004.EBIA_JOR_SEM_RED, CDEBAS012004.EBIA_TIPO_PEN,
CDEBAS012004.EBIA_CURP, CDEBAS012004.EBIA_CRED_INFO, CDEBAS012004.EBIA_TIP_AMOR_INFO,
CDEBAS012004.EBIA_POR_VSM, CDEBAS012004.EBIA_FEC_INF,
CDEBAS012004.EBIA_MTOS_INF" & Chr(13) & "" & Chr(10) & "FROM
`A:\04091793`.CDEBAS012004 CDEBAS012004" _
pd. Mi mail es [email protected]