[B]Private[/B] Sub btnRefresh_Click()
Call Refresh_Click
End Sub
'This must be Public
[B]Public[/B] Sub Refresh_Click(Optional ByVal lRecordID As Long)
On Error GoTo Err_Refresh_Click
'Worker code goes here...
Exit_Refresh_Click:
Exit Sub
Err_Refresh_Click:
Call errorhandler_MsgBox("Form: Form_quotes, Subroutine: Refresh_Click()")
Resume Exit_Refresh_Click
End Sub