这是你的For语句
成都创新互联始终坚持【策划先行，效果至上】的经营理念，通过多达十余年累计超上千家客户的网站建设总结了一套系统有效的营销推广解决方案，现已广泛运用于各行各业的客户，其中包括：塔吊租赁等企业，备受客户赞赏。
For i = 0 To webtable.Rows.Count - 1
Label2.Text = "正在从远程服务器下载数据 " i "/" webtable.Rows.Count
CMD = New OleDbCommand(Dbcstr, Dbc)
CMD.ExecuteNonQuery()
webrow = webtable.Rows.Item(i)
Next
语句中Dbcstr一直没有变动过，所以你提交到数据库中的内容总是第一行。
修改如下，未调试。
Dbc.Open()
For i = 0 To webtable.Rows.Count - 1
Dim Dbcstr As String = "INSERT INTO PurchaseOrders ([PurchaseOrderID],……
Dbcstr = Dbcstr " VALUES('" webtable.rows(i).Item(0) "','" ……
'webrow.Item(0)改成webtable.rows(i).Item(0)，其他一样
CMD = New OleDbCommand(Dbcstr, Dbc)
CMD.ExecuteNonQuery()
Next
conn.Close()
Dbc.Close()
先将excel中的数据读入到 DataTable中
然后用一个For循环，逐条Insert 到对应数据库的表中
你的语句并没有完全贴出来？
要注意区别：
1，如果是插入完整的一条记录（包括所有字段）
INSERT
INTO
表名称
VALUES
(值1,
值2,....)
2，如果插入只包含若干个指定字段（其余字段为空）
INSERT
INTO
table_name
(列1,
列2,...)
VALUES
(值1,
值2,....)
另外，你使用了变量，那么应该这样使用：
"insert
into
Personal_table
('"
Name_CH
"',
......
后面看不出了，
其实，你可以在这句之前，加一句输出，看看具体内容，你就知道了！
msgbox()在括号里把你的这个字符串放进去，看看结果是什么？
