Нужно перехватить ошибку и заменить ее на свою - VB

Формулировка задачи:

Есть два запроса на выборку записей. Когда нет записей, удовлетворяющих условиям запроса, появляется ошибка 1004 "Текущая запись отсутствует". А я бы хотела отлавливать ее, и вместо нее пользователю выдавать свое сообщение. Как это сделать?

Решение задачи: «Нужно перехватить ошибку и заменить ее на свою»

textual
                            Листинг программы 
                        

                            Private Sub Form_Load()
    On Error GoTo Form_Load_Err
    If MsgBox("Запустить ошибку 1004 ?", 68) Then Error 1004
    Exit Sub
Form_Load_Err:
    MsgBox Err.Description & vbCrLf & _
           "в Project1.Form1.Form_Load", _
           vbExclamation + vbOKOnly, App.Title
    Resume Next
End Sub
                        