怎样让多个查询同时执行？

楼主可以使用宏啊

docmd.runsql

不论你有多少个，也可以转换成vba方式

就你的3个查询，由宏转变成vba方式如下：

***********************

Function 宏1()
On Error GoTo 宏1_Err

    DoCmd.SetWarnings False
    DoCmd.RunSQL "UPDATE total INNER JOIN yaodui ON total.T3x = yaodui.T3x SET total.T3z = [yaodui].[T3z]  WHERE (((total.T3x)=[yaodui].[T3x]));  ", -1
    DoCmd.RunSQL "UPDATE total, yaodui SET total.T4z = [yaodui].[T4z]  WHERE (((total.T4x)=[yaodui].[T4x]));  ", -1
    DoCmd.RunSQL "UPDATE total, yaodui SET total.T6z = [yaodui].[T6z]  WHERE (((total.T6x)=[yaodui].[T6x]));  ", -1
    DoCmd.SetWarnings True

宏1_Exit:
    Exit Function

宏1_Err:
    MsgBox Error$
    Resume 宏1_Exit

End Function