If Combo1.Text = "总计" Then
If Not IsNumeric(Trim(Text1.Text)) Then
MsgBox "请输入数字！", vbOKOnly + vbExclamation, "警告"
Text1.Text = ""
Text1.SetFocus
Exit Sub
End If
sql = "select * from 整机服务 where 总计='" & Trim(Text1.Text) & "'"
rs_reader.Open sql, conn, adOpenKeyset, adLockPessimistic
If rs_reader.RecordCount > 0 Then
rs_reader.Close
rs_reader.CursorLocation = adUseClient
sql = "select * from 整机服务 where 总计='" & Trim(Text1.Text) & "'"
rs_reader.Open sql, conn, adOpenKeyset, adLockPessimistic
Label1.Caption = rs_reader("购机日期")
Label2.Caption = rs_reader("客户姓名")
Label3.Caption = rs_reader("联系电话")
Label4.Caption = rs_reader("联系地址")
Label5.Caption = rs_reader("总计")
Else

MsgBox "查询不到相关信息,请确认查询内容！", vbOKOnly + vbExclamation
Text1.SetFocus
Text1.Text = ""
End If
End If