Dim qdf As QueryDef
Dim db As Database
Dim strSELECT, strFROM, strORDERBY As String
Dim Meth As Variant

Set db = CurrentDb
Set qdf = db.QueryDefs("qrySelectProj")

strFROM = " FROM tblPROJECT "
Meth = Me.grpMethSel

Select Case Meth
    Case 1
        strSELECT = "SELECT tblPROJECT.PROJECT_ID, tblPROJECT.PROJECT_JPN & " & Chr(34) & " -- " & Chr(34) & " & tblPROJECT.PROJECT_Name & " & Chr(34) & "  (" & Chr(34) & " & tblPROJECT.PROJECT_Acronym & " & Chr(34) & ")  [" & Chr(34) & " & Year(tblPROJECT.PROJECT_Start) & " & Chr(34) & "]" & Chr(34) & " AS SelectMeth"
        strORDERBY = "ORDER BY tblPROJECT.PROJECT_JPN;"
    Case 2
        strSELECT = "SELECT tblPROJECT.PROJECT_ID, tblPROJECT.PROJECT_Name & " & Chr(34) & "  (" & Chr(34) & " & tblPROJECT.PROJECT_Acronym & " & Chr(34) & ") -- JPN " & Chr(34) & " & tblPROJECT.PROJECT_JPN & " & Chr(34) & "  [" & Chr(34) & " & Year(tblPROJECT.PROJECT_Start) & " & Chr(34) & "]" & Chr(34) & " AS SelectMeth"
        strORDERBY = "ORDER BY tblPROJECT.PROJECT_Name;"
    Case 3
        strSELECT = "SELECT tblPROJECT.PROJECT_ID, tblPROJECT.PROJECT_Acronym & " & Chr(34) & " -- " & Chr(34) & " & tblPROJECT.PROJECT_Name & " & Chr(34) & "  (JPN " & Chr(34) & " & tblPROJECT.PROJECT_JPN & " & Chr(34) & ")  [" & Chr(34) & " & Year(tblPROJECT.PROJECT_Start) & " & Chr(34) & "]" & Chr(34) & " AS SelectMeth"
        strORDERBY = "ORDER BY tblPROJECT.PROJECT_Acronym;"
End Select

qdf.SQL = strSELECT & strFROM & strORDERBY

Me.cmbSystem.Requery