1、建立optiont 控件組。index分別為0~3
2、建立壹個text，並且放置壹個command按鈕。
3、放置壹個ADO控件
4、放置壹個datagrid控件
5、ADO連接數據庫（在form_load事件）
6、在command1_click()事件寫下以下代碼：
adodc1.recordsouce = "select * from 表名 where 1=1"
& iif(opt0.value,"and 姓名 = '" & trim(text1) &"'","")
& iif(opt1.value,"and 性別 = '" & trim(text1) &"'","")
& iif(opt2.value,"and 班級 = '" & trim(text1) &"'","")
& iif(opt3.value,"and 照片 = '" & trim(text1) &"'","")
adodc1.resfrsh '(這個代碼我寫的可能不對，老是記不住)
set datagrid1.datasouce = adodc1 '把查詢的結果顯示在表格裏。
以上代碼中的 opt0~opt3 這4個單選框控件分別代表 姓名，性別，班級，照片。
代碼的功能是: 如果妳點了代表妳要查詢的單選框，代碼就會用妳填寫在text裏的字符到數據庫裏去查詢。查詢的結果取決於妳選了哪個單選框和text裏的內容，不過郁悶的是照片沒有辦法以這個方式單獨查詢出來，妳要查某人的照片，以上的代碼中第壹個iif 就可以顯示出來。
以上代碼可能有個別字母書寫錯誤，但是妳只要在vb裏寫，VB會自動提示正確的代碼。希望能對妳有所幫助。