' Hay que atrapar el error en el momento en que se produzca... no ya cuando resulte imposible seguir...
    on local error goto ErrorBd  ' esta línea debe remplazar a tu ' on error resume next'
    ' todo tu código... aquí
 
 
     strConexion1 = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=zz.zzz.zzz.zz;DATABASE=NombreBase;USER=Usuario;PASSWORD=Psw"
    strConexion2 = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=xx.xxx.xxx.xx;DATABASE=NombreBase;USER=Usuario;PASSWORD=Psw"
    Dim cAbantisDB As New ADODB.Connection ' <---- pon un "punto de interrupción en esta línea tecla F9 
    ' y a partir de aquí vamos paso a paso (tecla F8 con cada línea), 
    ' así vmeos que línea falla exactamente, porque el mensaje de error refiere línea 1, y refiere '.tbAccesos2', que no aparece por ninguna parte en tu código... probablemente sea el nombdre de una tabla... pero (yo), no hay forma de saber de qué BD.
    Dim cABDat As New ADODB.Connection
    cABDat.open strConexion1
    cAbantisDB.open strConexion2
 
    cABDat.Execute "INSERT INTO Tabla SELECT * FROM cAbantisDB.dbo.Tabla"
    '... hay más código, pués ponlo debajo?
 
    ' al final del código en dicha sub/function
    exit sub ' o function según sea el caso 
 
errorBD:
    debug.print err.Description  
    ' Si se puede corregir el error aquí, entonces 
    resume next   
    ' si no parar y arreglarlo... 
end sub /function