You can trap the error when You trying to open port:
In VFP 6.0
fl_error = .f.
old_error = ON("ERROR")
ON ERROR fl_error = .t.
thisform.MSCOMM1.PortOpen = .t.
ON ERROR old_error
IF fl_error
ENDIF
Against Stupidity the Gods themselves Contend in Vain - Johann Christoph Friedrich von Schiller
The only thing normal about database guys is their tables.