怎么在窗体里再加一个错误提示MSGBOX

Sub Update()
On Error GoTo ErrorHandler
Dim rst As New ADODB.Recordset, FNum As Double, FSumNum As Double, FCount As Long, FMaxP As Double, FTdays As Long, FBudget As Long
Dim HiPay As Double, Lopay As Double, FPitDiff As Double, FRange As Double, FPercent As Double, FCoutoff As Double, FWscores As Double

    FNum = DLookup("Benchmark", "Benchmark")
    FMaxP = DLookup("MaxPoint", "Benchmark")
    FBudget = DLookup("Budget", "variables_FY")
    FPercent = DLookup("HiUp", "variables_FY")
      With rst

     ...
        
    End With
  
ErrorHandler: If Err.Number = 94 Then
              MsgBox "无此数据", vbInformation
              End If
End Sub