請問一下大家..(編號:2928)

With Adodc1
.CommandType = adCmdText
   .ConnectionString = connstr
   .CursorLocation = adUseClient
   .CursorType = adOpenKeyset
   .RecordSource = " Select 名稱 from 資料表 where 功能 = " & cbo5.ItemData(cbo5.ListIndex) & " or 用途 = " & cbo4.ItemData(cbo4.ListIndex) & ""
   .Refresh
End With
以上是寫死為一個cmd
現在小弟想要寫一個chkbox
如果chk到功能 後面的sql子句只有到功能
若是chk到用途 只有用途  兩個都選到才會有以上的子句
請問各位高手有何建議跟指教  謝謝