Příklad

dim g_sDSN      : String;
dim g_sUserName : String;
dim g_nPswIdx   : Byte;
dim bOK         : Byte;
dim DB          : Word;

...
call HledejNeboZadejHeslo("#NaseMakro#", bOK);
if(bOK)then
    SQLDBOpen(DB, g_sDSN, g_sUserName, "#"+_Str(g_nPswIdx));
    ...
endif
Exit

procedure HledejNeboZadejHeslo(	    sPopis  : String;
                                dim bOK     : Byte)
    { Najdeme požadované heslo }
    dim bIdx : Byte;
    dim sPsw : String[40];

    bOK := false;
    for bIdx := 0 to SYS_MAX_PSW-1 do
        exitif(_PswGetDesc(bIdx)=sPopis)then
            bOK := true;
            g_nPswIdx := bIdx;
        endexit
    end
    if(bOK=false)then
        { Heslo ve skladu hesel neexistuje }
        if(_InputW("Vložte heslo pro přístup do databáze '" + g_sDSN + "' pro uživatele '" + g_sUserName + "': ", 30, sPsw)=cmOK)then
            { Najdi místo pro heslo }
            for bIdx := 0 to SYS_MAX_PSW-1 do
                if(_PswGetDesc(bIdx)="")then
                    bOK := true;
                    { Ulož heslo }
                    PswSetDesc(bIdx, sPopis);
                    PswSetPsw(bIdx, sPsw);
                    g_nPswIdx := bIdx;
                    return;				
                endif
            end
            _MsgBox(1, "Ve skladu hesel není místo pro nové heslo!!", 0);
        endif
    endif
endproc { HledejNeboZadejHeslo }