应该是你"布号='"的类型和DBCombo1.Text(这是string类型)里的内容不对,把他们转换成一个类型就可以了:比如,如果"布号='是integer,  instring$ = Cint(DBCombo1.Text)
  Data1.Recordset.FindFirst "布号='" & instring$ & "'"
      就OK了