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