Function MakeUserCode

    OpenDB()

    Randomize

    dim getid_rs,getid

    set getid_rs=rsobj

    do while true

        getid="CN"&int(rnd()*(^))

        getid_rs.open "select * from Members where User_Account='"&getid&"'",con

        if getid_rs.bof or getid_rs.eof then

            getid_rs.close

            exit do

        end if

        getid_rs.close

    loop

    set getid_rs=nothing

    MakeUserCode = getid

    CloseDB()

End Function