lnHandle = SQLConnect("Carnet d'adresses", "", "") IF lnHandle < 1 AERROR(laError) =MESSAGEBOX(laError[1,3], 16, "Lagibert") RETURN ENDIF