超市管路系统vb做的 Dim Sql As String Dim RS As ADODB.Recordset Private Sub cmdFind_Click() '查找 Dim i As Integer If Trim(Me.txtData.Text) "" Then Sql = "se