Private Sub Text2_Change() Dim strWhere As String strWhere = Trim$(Me.Text2.Text) If Len(strWhere) > 0 Then strWhere = " WHERE [供应商] & [供应商电话] & [供应商传真] & [电话] & [传真] & [地址] & [联系人] & [经营项目] Like '*" & strWhere & "*'" End If a = "SELECT * FROM 供应商资料表" & strWhere Me.Child6.Form.RecordSource = a