How to travel between Previous and Next Records

[prkinlotpmpin]

Ok, so here it is. I'm writing a basic code for my class and have had no luck when it comes to transfering between records. The Next Record Command works perfect but I have no idea what to code for the Previous Command button. If anyone has any ideas or suggestions PLEASE let me know... Here is the code so far, (the cmdPrevious click event is left blank because I have no idea what to put in there)

'Team 14
'This form allows the user to view the data in the text file.
 
Option Explicit
Private intAccountInformation As Integer
 
Private Sub cmdNext_click()
  Dim strRecord As String * 112
  Dim strName As String * 30
  Dim strAddress As String * 35
  Dim strCity As String * 25
  Dim strState As String * 2
  Dim strZip As String * 5
  Dim strAccount As String * 6
  Dim strBalance As String * 7
  Dim curBalance As Currency
  Get #intAccountInformation, , strRecord
  If EOF(intAccountInformation) Then
    MsgBox "There are no more records in the file."
  Else
    strName = Mid(strRecord, 1, 30)
    strAddress = Mid(strRecord, 31, 35)
    strCity = Mid(strRecord, 66, 25)
    strState = Mid(strRecord, 91, 2)
    strZip = Mid(strRecord, 93, 5)
    strAccount = Mid(strRecord, 97, 6)
    strBalance = Mid(strRecord, 105, 7)
    curBalance = CCur(strBalance) / 100
    lblBalanceData.Caption = Format(curBalance, "$0.00")
    lblNameData.Caption = strName
    lblAddressData.Caption = strAddress
    lblCityData.Caption = strCity
    lblStateData.Caption = strState
    lblZipData.Caption = strZip
    lblAccountData.Caption = strAccount
  End If
End Sub
 
Private Sub cmdPrevious_Click()
 
End Sub
 
Private Sub form_load()
  Dim strAccountInformation As String
  intAccountInformation = FreeFile
  strAccountInformation = App.Path & "\OutPutFile.txt"
  Open strAccountInformation For Random Access Read As #intAccountInformation Len = 112
End Sub
 
Private Sub cmdExit_click()
  Unload Me
End Sub
 
Private Sub form_unload(cancel As Integer)
  Close #intAccountInformation
End Sub