Read Value from Table (with Condition) and Enter Data into Word - vba

Question

I have a question with my VBA script. So far, my script works fine with entering the data into the word file. The VBA script is connected to a button in my ms access navigation. I want to seperate Male/Female data. To do this, I need to be able to gather the information from the
table => tbl_Customer, Column => Gender, Value/Attribute => Male or Female
After this I want the program to act as mentioned below:
for example: .FormFields("txtMale1").result = [CustomerName]
This is only executed when the gender is male.
If the gender is female another code is executed:
.FormFields("txtFemale1").result = [CustomerName]
How can I implement this. My approach:
If myCustomerType("tbl_Customer", "Male") = True Then
.FormFields("txtMale1").result = [CustomerName]
End If
Does not work.
Function fillwordform3()
Dim appword As Object
Dim doc As Object
Dim Path As String
Dim myCustomerType As String
Dim TenPercent As Double
On Error Resume Next
Error.Clear
Set appword = GetObject(, "word.application")
If Err.Number <> 0 Then
Set appword = CreateObject("Word.Application")
appword.Visible = True
End If
Path = Application.CurrentProject.Path & "\Arbeitszeugnis_Test.docx"
'Path = "C:\Users\tathong\Downloads\Thank you letter.docx"
If FileExists(Path) = False Then
MsgBox "Template File Not Found", vbExclamation, "File Not Found"
Else
Set doc = appword.Documents.Open(Path, , True)
myCustomerType = DLookup("Customer_Type", "tbl_customer_type", "[Customer_Type_ID] = " & Me.Departement_Type_ID)
With doc
.FormFields("txtcustomerName1").result = [CustomerName]
.FormFields("txtDateofBirth").result = [DateofBirth]
.FormFields("txtPlaceofBirth").result = [PlaceofBirth]
.FormFields("txtEntryDate").result = [EntryDate]
.FormFields("txtPosition").result = [Position]
.FormFields("txtBeschaeftigung").result = [Beschaeftigung]
.FormFields("txtBeschaeftigungsg").result = [Beschaeftigungsgrad]
.FormFields("txtCertReceiveDate").result = [Certificate_Receive_Date]
.FormFields("txtOtherCert1").result = [Other_Certificate_Date1]
.FormFields("txtOtherCert2").result = [Other_Certificate_Date2]
.FormFields("txtOtherCert3").result = [Other_Certificate_Date3]
.FormFields("txtOtherCert4").result = [Other_Certificate_Date4]
.FormFields("txtcustomerName2").result = [CustomerName]
.FormFields("txtcustomerName3").result = [CustomerName]
.FormFields("txtcustomerName3a").result = [CustomerName]
.FormFields("txtcustomerName4").result = [CustomerName]
.FormFields("txtcustomerName5").result = [CustomerName]
.FormFields("txtcustomerName6").result = [CustomerName]
.FormFields("txtSuperior").result = [Superior]
.FormFields("txtDepartement").result = [Department]
.FormFields("txtHRResponsible").result = [HR_Responsible]
*If myCustomerType("tbl_Customer", "Male") = True Then
.FormFields("txtMale1").result = [CustomerName]
End If*
appword.Visible = True
appword.Activate
End With
Set doc = Nothing
Set appword = Nothing
End If
End Sub
Private Sub Command317_Click()
Call fillwordform3
End Sub