เวลากระทำกับข้อมูลผ่าน ODBC แล้วเกิด error   ถ้าจะให้รู้ได้ถูกต้องว่าเกิด error อะไรจากเลเยอร์ไหนกันแน่ ต้องเขียนโค้ดอย่างนี้ครับ อาจมีข้อความออกมาหลายครั้ง ครั้งแรกจะเป็นข้อความจากจุดที่เกิด error จริงๆ ข้อความต่อมาก็จะมาจากเลเยอร์ชั้นบนขึ้นไป ส่วนข้อความสุดท้ายที่เป็นชั้นบนสุดก็น่าเป็น error 3146 นั่นแหล่ะครับ (ซึ่งมันก็ไม่ได้บอกอะไรให้เราสักเท่าไหร่เลย) ให้ดูข้อความแรกเป็นหลัก แล้วน่าจะรู้ว่าเกิดจากปัญหาอะไร

Private Sub/Function ....
   Dim E as DAO.Error

On error goto ErrRtn

   โค้ดต่างๆของคุณ

ExitRtn:
   Exit Sub/Function

ErrRtn:
   If DAO.Errors.Count > 0 then
      If DAO.Errors(DAO.Errors.Count - 1).Number = Err.Number Then
        For Each E in DAO.Errors
            Msgbox "Error from " + E.Source + ", " + cstr(E.Number) + " : " + E.Description
        Next E
        Resume ExitRtn
      End If
   End If
   Msgbox "Error " + cstr(Err.Number) + " : " + Err.Description
   Resume ExitRtn
End Sub/Function