How to change the criteria into variable in the recorded MS query macro ?

I record a macro when I do the MS query data.
The resulted macro as follow :

Sub GetData()
    With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array(Array( _
        "ODBC;DSN=Excel Files;DBQ=D:\Laporan DarmaPangan\LaporanDPD.xlsm;DefaultDir=D:\Laporan DarmaPangan;DriverId=1046;MaxBufferSize=2048;P" _
        ), Array("ageTimeout=5;")), Destination:=Range("$B$1")).QueryTable
        .CommandText = Array( _
        "SELECT `DATA$`.TGL, `DATA$`.NOTA, `DATA$`.NAMA, `DATA$`.BUKU, `DATA$`.POS, `DATA$`.ITEM, `DATA$`.QTY, `DATA$`.HARGA, `DATA$`.`SUM +/-`, `DATA$`.BULAN, `DATA$`.TAHUN" & Chr(13) & "" & Chr(10) & "FROM `DATA$` `DATA$`" & Chr(13) & "" & Chr(10) & "WHERE (`DATA" _
        , _
        "$`.BUKU='STOK') AND (`DATA$`.POS='PD') AND (`DATA$`.BULAN='June') AND (`DATA$`.TAHUN='2019')" & Chr(13) & "" & Chr(10) & "ORDER BY `DATA$`.TGL" _
        )
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .ListObject.DisplayName = "Table_Query_from_Excel_Files"
        .Refresh BackgroundQuery:=False
    End With
End Sub

The "bulan" means Month, The "tahun" means Year.

My plan is that before the query runs, I use application.inputbox (or maybe listbox/combobox with month option in userform),
so the user can input what month and year he wants to query.

To check whether it will work or not, I've tried this first:

Sub GetData()

bulan = "May"

    With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array(Array( _
        "ODBC;DSN=Excel Files;DBQ=D:\Laporan DarmaPangan\LaporanDPD.xlsm;DefaultDir=D:\Laporan DarmaPangan;DriverId=1046;MaxBufferSize=2048;P" _
        ), Array("ageTimeout=5;")), Destination:=Range("$B$1")).QueryTable
        .CommandText = Array( _
        "SELECT `DATA$`.TGL, `DATA$`.NOTA, `DATA$`.NAMA, `DATA$`.BUKU, `DATA$`.POS, `DATA$`.ITEM, `DATA$`.QTY, `DATA$`.HARGA, `DATA$`.`SUM +/-`, `DATA$`.BULAN, `DATA$`.TAHUN" & Chr(13) & "" & Chr(10) & "FROM `DATA$` `DATA$`" & Chr(13) & "" & Chr(10) & "WHERE (`DATA" _
        , _
        "$`.BUKU='STOK') AND (`DATA$`.POS='PD') AND (`DATA$`.BULAN=bulan) AND (`DATA$`.TAHUN='2019')" & Chr(13) & "" & Chr(10) & "ORDER BY `DATA$`.TGL" _
        )
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .ListObject.DisplayName = "Table_Query_from_Excel_Files"
        .Refresh BackgroundQuery:=False
    End With
End Sub

But it doesn't work.
It didn't threw me an error message, but the query result contains all months which are in the "linked" data.

How do I have to code ?

And also, as seen in the recorded macro - what does it mean

& Chr(13) & "" & Chr(10) &

Any kind of help would be greatly appreciated.
Thank you in advanced.