Error Event Example

The example displays an Open dialog if the database specified in the data control's DatabaseName property is not found.

Sub Data1_Error (DataError As Integer, Response As Integer)
   Select Case DataError
      Case 3024                       ' If database file not found.
         CMDialog1.Action = 1         ' Display an Open dialog.
      ...
   End Select
End Sub