Codigo del modulo con nombre MDB

PUBLIC cn AS NEW Connection

PUBLIC PROCEDURE Connect() AS Boolean
cn.Close()
cn.Type = "mysql"
cn.Host = "localhost"
cn.Login = "root"
cn.Password = "12345"
cn.Name = "reportes"
cn.Open
RETURN TRUE
CATCH
Message.Error("Error abriendo la base de datos!!!\n" & Error.Text)
RETURN FALSE
END