Code:
Private Sub cmdsearch_Click()
Select Case True
Case Me.cboskill.Value = 1
Me.lstbox.RowSource = "SELECT tbl_employe.empID_PK, tbl_level.level, tbl_employe.name, tbl_skill.skill, tbl_office.office, tbl_level.levelID_PK, tbl_skill.skillID_PK, tbl_office.officeID_PK " & _
"FROM tbl_skill INNER JOIN (tbl_office INNER JOIN (tbl_level INNER JOIN tbl_employe ON tbl_level.levelID_PK = tbl_employe.levelID_FK) ON tbl_office.officeID_PK = tbl_employe.officeID_FK) ON tbl_skill.skillID_PK = tbl_employe.skillID_FK;"
Case Me.cboskill.Value <> 1
Me.lstbox.RowSource = "SELECT tbl_employe.empID_PK, tbl_level.level, tbl_employe.name, tbl_skill.skill, tbl_office.office, tbl_level.levelID_PK, tbl_skill.skillID_PK, tbl_office.officeID_PK " & _
"FROM tbl_skill INNER JOIN (tbl_office INNER JOIN (tbl_level INNER JOIN tbl_employe ON tbl_level.levelID_PK = tbl_employe.levelID_FK) ON tbl_office.officeID_PK = tbl_employe.officeID_FK) ON tbl_skill.skillID_PK = tbl_employe.skillID_FK " & _
"WHERE ((tbl_skill.skillID_PK)=" & Me.cboskill.Value & ");"
Case Else
MsgBox "ALL THE BEST"
End Select
End Sub
Add the spaces at the red...