Dim Sql As String Dim RS As ADODB.Recordset Private Sub cmdFind_Click() '查找 Dim i As Integer If Trim(Me.txtData.Text) "" Then Sql = "select * from 入库查询表 where " Sql = Sql & Trim(Me.cboType.Text) If Me.cboType.ListIndex = 0 Or Me.cboType.ListIndex = 3 _ Or Me.cboType.ListIndex