Sub Macro1()

    ActiveWorkbook.Connections("mismatch").Refresh
        With Worksheets("0Mismatch").QueryTables(1)
        .Connection = "TEXT;" & ThisWorkbook.Path & "c:myfile.csv"
        .Refresh BackgroundQuery:=False
     End With
End Sub