Prueba esto, Sub Update() Dim i As Long Dim Uf As Long Dim AppAccess As Variant Dim MiSQL, MyQuery, MiConsulta As String Dim Ruta As String Dim ClaseDem As String Dim TotalRegistros As Long Set a = Sheets("DEM") Ruta = a.Range("B1").Value 'ruta a la...