я предлагаю следующий код.

PRIVATE $hConn AS Connection
PUBLIC SUB GoConnect()
DIM sName AS String
TRY $hConn.Close
sName = "fgda"
WITH $hConn
.Type = "mysql"
.Host = "localhost"
.Login = "yourusername"
.Password = "yourpassword"
END WITH
$hConn.Name = sName
$hConn.Open
CATCH
Message.Error(Error.Text)
END
PUBLIC SUB Form_Open()
$hConn = NEW Connection
GoConnect
label1.Text ="Ok."
END
PUBLIC SUB Form_Close()
$hConn.Close
END