vb中将listbox中的内容通过一个按钮添加到数据库中

Private Sub Command1_Click(Index As Integer)
If List1.ListCount > 0 Then
For i = 0 To List1.ListCount - 1
rs.AddNew
RS.Fields("字段名称") = List1.List(i)
rs.Update
rs.MoveNext
Next i
End SUB
我没有调试,直接在百度里写的，你可以调试一下，如果出错,你把 rs.MoveNext放到循环外

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim cmd As SqlCommand

Dim i As Integer
For i = 1 To ListBox1.Items.Count
cmd.CommandText = "insert into table (xxx)value('" & ListBox1.Items(i).ToString() & "')"
cmd.ExecuteNonQuery()
Next
End Sub