strsql = "___select 工號，姓名，性別，年齡 from 職工_______='" & _combo0.value________ & "'" '定義SQL語句進行查詢

Else

mesbox "請選擇工號"___________ 'msgbox給出："請選擇工號"的提示

End If

me.職工.form.recordsource________ = strsql

End Sub

調試壹下吧