How do I get the RecNum (record Number) to change so that it adds 1 (appends) And that LastRec will equal the starting Record that is next to add.
FileOpen(fileNumber, "C:\Prayers.dat", OpenMode.Random, OpenAccess.Write, , SizeRecNum)
        MyPrayers.PrayerName = TextBox2.Text
        MyPrayers.Prayer = TextBox1.Text
        RecNum = RecNum + 1
        FilePut(fileNumber, MyPrayers, RecNum)
        FileClose(fileNumber)
        LastRec = RecNum
        MsgBox(LastRec)

---

Reply from Richard Rost:

Not sure I follow what you're trying to do...