Building SQL In Active Form With VBA "I Really Fool For SQL,Please Help Me"

Dear All,
I want to make a multiple criteria query from active form,
but i stuck in SQL ,Please help to solve my syntac. I am very fool in Sql Syntac. the code like bellow:

Option Compare Database

Private Sub cmdSearch_Click()
On Error GoTo cmdSearch_Click_Err
Dim blnQueryExists As Boolean
Dim cat As New ADOX.Catalog
Dim cmd As New ADODB.Command
Dim qry As ADOX.View
Dim varItem As Variant
Dim strUmur As String
Dim strJnsKelamin As String
Dim strPendidikan As String
Dim strPosisi As String
Dim strJnsKelaminCondition As String
Dim strPendidikanCondition As String
Dim strPosisiCondition As String
Dim strSQL As String
'************************************************
' Check for the existence of the stored query
blnQueryExists = False
Set cat.ActiveConnection = CurrentProject.Connection
For Each qry In cat.Views
If qry.Name = "PelamarTemp_Qry" Then
blnQueryExists = True
Exit For
End If
Next qry
' Create the query if it does not already exist
If blnQueryExists = False Then
cmd.CommandText = "SELECT * FROM Pelamar"
cat.Views.Append "PelamarTemp_Qry", cmd
End If
Application.RefreshDatabaseWindow
' Turn off screen updating
DoCmd.Echo False
' Close the query if it is already open
If SysCmd(acSysCmdGetObjectState, acQuery, "PelamarTemp_Qry") = acObjStateOpen Then
DoCmd.Close acQuery, "PelamarTemp_Qry"
End If
'************************************************* *
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ^
' Build criteria string for Umur

strUmur = Me.Umur.Value
Debug.Print strUmur
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ^^^
' Build criteria string for JnsKelamin
strJnsKelamin = Me.Jns_kelamin.Value
If Len(strJnsKelamin) = 0 Then
strJnsKelamin = "Like '*'"
Else
strJnsKelamin = "IN(" & strJnsKelamin & ")"
End If
Debug.Print strJnsKelamin
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ^
' Build criteria string for Pendidikan
strPendidikan = Me.Pendidikan.Value
If Len(strPendidikan) = 0 Then
strPendidikan = "Like '*'"
Else

strPendidikan = "IN(" & strPendidikan & ")"
End If
Debug.Print strPendidikan
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ^
' Build criteria string for Posisi
strPosisi = Me.Posisi.Value
If Len(strPosisi) = 0 Then
strPosisi = "Like '*'"
Else
strPosisi = "IN(" & strPosisi & ")"
End If
Debug.Print strPosisi
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ^
' Get JenisKelaminCondition
If Me.optAndJnsKelamin.Value = True Then
strJnsKelaminCondition = " AND "
Else
strJnsKelaminCondition = " OR "
End If
Debug.Print strJnsKelaminCondition
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ^
' Get PendidikanCondition
If Me.optAndPendidikan.Value = True Then
strPendidikanCondition = " AND "
Else
strPendidikanCondition = " OR "
End If
Debug.Print strPendidikanCondition
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ^
' Get PosisiCondition
If Me.optAndPosisi.Value = True Then
strPosisiCondition = " AND "
Else
strPosisiCondition = " OR "
End If
Debug.Print strPosisiCondition
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ^
'************************************************* *
' Build SQL statement
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ^
'SQL Statement from Query builder
'SELECT Pelamar.No_pelamar, Pelamar.Tgl_lamaran, Pelamar.Nama, Year(Now())-Year([Tgl_lahir]) AS Umur, Pelamar.Jns_kelamin, Pendidikan.Ijazah, Posisi.Posisi
'FROM ((Pelamar INNER JOIN Pekerjaan ON Pelamar.No_pelamar = Pekerjaan.No_pelamar) INNER JOIN Pendidikan ON Pelamar.No_pelamar = Pendidikan.No_Pelamar) INNER JOIN Posisi ON Pelamar.No_pelamar = Posisi.No_pelamar
'WHERE (((Pelamar.Jns_kelamin)=[Forms]![SearchByKriteria_frm]![Jns_kelamin])) OR (((Pendidikan.Ijazah)=[Forms]![SearchByKriteria_frm]![Pendidikan])) OR (((Posisi.Posisi)=[Forms]![SearchByKriteria_frm]![Pendidikan])) OR (((Year(Now())-Year([Tgl_lahir]))<=[Forms]![SearchByKriteria_frm]![Umur]));

'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ^^^^
'Please I am very stupid in sql,how to apply all variabel that i had create and insert in the sql in vba?
'i had try write as bellow but the result is error number 2465 with error description "Microsot Access can't find the field"I" reffered in your expression"
'All i need is how to write SQL in vba like the sql statement in query builder for make a query on form.
' note: all variabel string is all from the form
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ^^^^^^^^^^^^^^^^^^^6
strSQL = "SELECT Pelamar.* FROM ((Pelamar INNER JOIN Pekerjaan ON Pelamar.No_pelamar = Pekerjaan.No_pelamar) INNER JOIN Pendidikan ON Pelamar.No_pelamar = Pendidikan.No_Pelamar) INNER JOIN Posisi ON Pelamar.No_pelamar = Posisi.No_pelamar" & _
"WHERE Pelamar.[Jns_kelamin] " & strJnsKelamin & _
strPendidikanCondition & "Pendidikan.[Ijazah] " & strPosisiCondition & _
"Posisi.[Posisi] " & strJnsKelaminCondition & (Year(Now()) - Year([Tgl_lahir])) = " strUmur "";"



Debug.Print strSQL
'************************************************* *
' Apply the SQL statement to the stored query
cat.ActiveConnection = CurrentProject.Connection
Set cmd = cat.Views("PelamarTemp_Qry").Command
cmd.CommandText = strSQL
Set cat.Views("PelamarTemp_Qry").Command = cmd
Set cat = Nothing
' Open the Query
DoCmd.OpenQuery "PelamarTemp_Qry"
' If required the dialog can be closed at this point
' DoCmd.Close acForm, Me.Name
' Restore screen updating
cmdSearch_Click_Exit:
DoCmd.Echo True
Exit Sub
cmdSearch_Click_Err:
MsgBox "An unexpected error hass occurred." _
& vbCrLf & "Procedure: cmdSearch_Click" _
& vbCrLf & "Error Number: " & Err.Number _
& vbCrLf & "Error Description:" & Err.Description _
, vbCritical, "Error"
Resume cmdSearch_Click_Exit
End Sub

Private Sub optAndJnsKelamin_Click()
If Me.optAndJnsKelamin.Value = True Then
Me.optOrJnsKelamin.Value = False
Else
Me.optOrJnsKelamin.Value = True
End If

End Sub

Private Sub optAndPendidikan_Click()
If Me.optAndPendidikan.Value = True Then
Me.optOrPendidikan.Value = False
Else
Me.optOrPendidikan.Value = True
End If

End Sub

Private Sub optAndPosisi_Click()
If Me.optAndPosisi.Value = True Then
Me.optOrPosisi.Value = False
Else
Me.optOrPosisi.Value = True
End If


End Sub

Private Sub optOrJnsKelamin_Click()
If Me.optOrJnsKelamin.Value = True Then
Me.optAndJnsKelamin.Value = False
Else
Me.optAndJnsKelamin.Value = True
End If
End Sub

Private Sub optOrPendidikan_Click()
If Me.optOrPendidikan.Value = True Then
Me.optAndPendidikan.Value = False
Else
Me.optAndPendidikan.Value = True
End If

End Sub

Private Sub optOrPosisi_Click()
If Me.optOrPosisi.Value = True Then
Me.optAndPosisi.Value = False
Else
Me.optAndPosisi.Value = True
End If


End Sub

'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^66
Is there any one can correct my syntac?