假设Userform的名称为"myForm"，ListBox的名称为"myListBox"，其中每个列表项有三个值需要插入到SQL数据库的对应的三个列中。

首先，在模块级别声明一个字符串变量queryStr，用于存储查询字符串。

Dim queryStr As String

然后，使用For循环遍历ListBox中的每一项。

For i = 0 To myForm.myListBox.ListCount - 1

接下来，为每个列表项创建SQL插入查询字符串。

queryStr = "INSERT INTO myTable (column1, column2, column3) VALUES ('" _
   & myForm.myListBox.List(i,0) & "', '" _
   & myForm.myListBox.List(i,1) & "', '" _
   & myForm.myListBox.List(i,2) & "')"

最后，执行SQL查询并插入到数据库。

DoCmd.RunSQL queryStr

完整代码如下：

Dim queryStr As String

For i = 0 To myForm.myListBox.ListCount - 1
    queryStr = "INSERT INTO myTable (column1, column2, column3) VALUES ('" _
       & myForm.myListBox.List(i,0) & "', '" _
       & myForm.myListBox.List(i,1) & "', '" _
       & myForm.myListBox.List(i,2) & "')"
    DoCmd.RunSQL queryStr
Next i