Automatic creation of unique Alphanumeric ID?
This will work. There may be something more elegant but this should get you started.

 Public Function GetUID() As String
      GetUID = "G" &amp; Right("000" + CStr((CInt(Right(DMax("[YourIDField]", "TableContainingField"), 3)) + 1)), 3)
 End Function