Private Sub cmd_import_Click()
    DoCmd.TransferText acImportDelim, , "csv1", "D:\csv1.csv"
End Sub

Private Sub cmd_update_Click()
Dim str1 As String
    str1 = "UPDATE q_1 AS T1 INNER JOIN csv1 AS T2 ON (T1.momartvis_tarigi = T2.F2) AND (T1.id_clinical = T2.F9) SET T1.pasuxi = T2.[F41]*0.1;"
CurrentDb.Execute str1, dbFailOnError
    str1 = "UPDATE q_2 AS T1 INNER JOIN csv1 AS T2 ON (T1.momartvis_tarigi = T2.F2) AND (T1.id_clinical = T2.F9) SET T1.pasuxi = T2.[F39]*0.01;"
CurrentDb.Execute str1, dbFailOnError
...............
Sub End

DoCmd.TransferText acImportDelim, , "csv1", "D:\csv1.csv"