當我試圖運行以下代碼時，我得到錯誤消息oledb異常

Question

這是我的代碼，它與一個按鈕相關聯。基本上我想重新計算「MI」的值，並自動更新所有數據庫。當運行此代碼我得到未處理OLEDB異常的額外 信息

錯誤消息：太多的字段定義

。任何機構都可以幫助我找出它有什麼問題。

CustomersBindingSource.MoveFirst() 
    Dim b As Integer 
    b = CustomersBindingSource.Count 
    Dim n As Integer 
    n = 0 
    While n <= b 
     Button1.PerformClick() 
     n = n + 1 
     CustomersBindingSource.MoveNext() 
    End While 

    Form7.Show() 

Answer 1

嘗試

While n <= b 
if n = b then 
    Button1.PerformClick() 
    n = n + 1 
else 
    n = n + 1 
    CustomersBindingSource.MoveNext() 
end if 
End While 

這可能是可能的，它是一個指數出來試圖運行CustomersBindingSource.MoveNext時的誤差範圍內（）