请教如何在vba里同时运行多个update语句更新access数据库对应表

Private Sub CommandButton1_Click() Dim mydate As String, mytable As String, sql As String, i As Integer Dim cnn As ADODB.Connection mydata = ThisWorkbook.Path & "\商品信息表.mdb" mytable = "inventory" Set cnn = New ADODB.Connection