	If colpreferences("ShowError") Then
		MsgBox Error
	ElseIf colpreferences("UseErrBeep") Then
		Beep
	End If
	Dim MyErr As Long
	Dim MyErrName As String
	MyErr = Err.Number
	MyErrName = Err.Description
	clsErrorEngine.ErrorName = MyErrName
	clsErrorEngine.ErrorNumber = MyErr
	clsErrorEngine.ErrorDate = Now
	clsErrorEngine.ErrorProcedure = " Command1_Click  "
	clsErrorEngine.ErrorNotes = " None Available"
	clsErrorEngine.AddError