Nel progetto ho incluso un form dati generato automaticamente con i campi del file excel che uso.
Il codice associato al form è il seguente:

codice:
Private Sub Data1_Error(DataErr As Integer, Response As Integer)
  'Posizione per il codice di gestione degli errori
  'Se si desidera ignorare gli errori, impostare come commento la riga successiva
  'Se si desidera intercettarli, aggiungere qui il codice di gestione
  MsgBox "Intercettato errore dei dati:" & Error$(DataErr)
  Response = 0  'Ignora l'errore
End Sub

Private Sub Data1_Reposition()
  Screen.MousePointer = vbDefault
  On Error Resume Next
  'Visualizza la posizione del record corrente
  'per Recordset di tipo Dynaset e Snapshot
  Data1.Caption = "Record: " & (Data1.Recordset.AbsolutePosition + 1)
  'Per l'oggetto tabella è necessario impostare la proprietà Index
  'al momento della creazione del Recordset e utilizzare la riga seguente
  'Data1.Caption = "Record: " & (Data1.Recordset.RecordCount * (Data1.Recordset.PercentPosition * 0.01)) + 1
End Sub

Private Sub Data1_Validate(Action As Integer, Save As Integer)
  'Posizione per il codice di convalida
  'Questo evento viene richiamato quando si verificano le seguenti azioni
  Select Case Action
    Case vbDataActionMoveFirst
    Case vbDataActionMovePrevious
    Case vbDataActionMoveNext
    Case vbDataActionMoveLast
    Case vbDataActionAddNew
    Case vbDataActionUpdate
    Case vbDataActionDelete
    Case vbDataActionFind
    Case vbDataActionBookmark
    Case vbDataActionClose
  End Select
  'Screen.MousePointer = vbHourglass
End Sub

Private Sub Form_Load()

End Sub
Ho omesso di inserire il codice dei pulsanti per modificare/aggiunfere record e chiudere il form: si tratta anche in questo caso di codice generato dal wizard form dati.

In pratica il programma viene eseguito normalmente ma appena apro il form mi esce "Intercettato errore dei dati: Application-defined or Object-defined error" e di seguito il famoso errore 91