how can i add applicant id with a string like this one APP-0001 im using a database and when i click the button add it will generate a new applicant id. heres m code

VB Code:
  1. With tbInquiry
  2.     If .RecordCount = 0 Then
  3.         txtAppID = "00000001"
  4.     Else
  5.         .MoveLast
  6.         txtAppID = .Fields(0) + 1
  7. '        txtAppInfo(0).SetFocus
  8.     End If
  9. End With