请更新以下代码行。

Hi,

Please update the line line of code as below.

Dim objCommandBuilder As New SqlCommandBuilder(da1)

到

To

Dim objCommandBuilder As New OleDbCommandBuilder(da1)

希望你的问题能解决。

Hope your problem would solve.