i suggest the following code.

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