如何把VB的listbox中的相应内容存入access数据库？

【数据库连接】
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\数据库.mdb"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select 资料表 from 字段"
Adodc1.Refresh

Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
End Sub

【将Listbox内容存入数据库】
Private Sub Command1_Click()
For i = 0 To List1.ListCount - 1
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("name") = List1.List(i)
Adodc1.Recordset.Update
DataGrid1.Refresh
Next
End Sub

简单点的话用data控件
绑定对应的ACCESS文件和表
然后用个addnew就可以了

for (int i = 0; i < ListBox1.Items.Count;i++ )
{
string name = this.ListBox1.Items[i].ToString();
//插入数据库这里写Insert方法
}