มัน run ได้ ไม่ error แต่ไม่ update ข้อมูลให้ ไม่รู้ผิดพลาดตรงไหน

Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim strSQL1, strSQL2, strSQL3, strSQL4, strSQL5, strSQL6, strSQL7, strSQL8 As String
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("select * from TableInterventionTemp")

DoCmd.SetWarnings False
If Not rst.EOF Then
rst.MoveFirst
   Do While Not rst.EOF
              strSQL1 = "UPDATE "
              strSQL2 = rst!tblName
              strSQL3 = strSQL1 + strSQL2
              strSQL4 = "set pt1= ' " & rst!pt1 & " ',pt2=' " & rst!pt2 & " ',pt3= ' " & rst!pt3 & " ',pt4=' " & rst!pt4 & " ',pt5= ' " & rst!pt5 & " ',pt6=' " & rst!pt6 & " ',pt7=' " & rst!pt7 & " '," _
               & "dc1=' " & rst!dc1 & " ',dc2=' " & rst!dc2 & " ',dc3=' " & rst!dc3 & " ',dc4=' " & rst!dc4 & " ',dc5=' " & rst!dc5 & " ',dc6=' " & rst!dc6 & " ',dc7=' " & rst!dc7 & " ' "
               strSQL5 = strSQL3 + strSQL4
               strSQL6 = "where vn=' " & rst!vn & " ';"
               strSQL7 = strSQL5 + strSQL6
               DoCmd.RunSQL (strSQL7)
               MsgBox (strSQL7)
              
    rst.MoveNext
   Loop
End If
rst.Close
Set rst = Nothing
Set dbs = Nothing