Private Sub Form_Current()
	Select Case Me!txtHiddenGender
	Case "Male"
		Me!grpGender = 1
	Case "Female"
		Me!grpGender = 2
	Case Else
		Me!grpGender = Null
	End Select
End Sub