Dim rs1 As ADODB.Recordset Dim rs2 As ADODB.Recordset Dim rs3 As ADODB.Recordset Dim partno As String Dim machineno As String Dim dimension As String Dim startdate As String Dim enddata As String
Set m_rs = OpenRecordset("SELECT * FROM spcdata", adOpenStatic, adLockOptimistic) With combomachineno .clear Set rs2 = OpenRecordset("select Machineno,count(sampleno)as Trecords From spcdata where partno = '" & partno & "' and dimension ='" & dimension & "'and date between '" & Format$(startdate, "yyyy-mm-dd") & "' and '" & Format$(enddate, "yyyy-mm-dd") & "' group by machineno,dimension", adOpenStatic, adLockReadOnly)
While Not rs2.EOF combomachineno.AddItem rs2!machineno & "" rs2.MoveNext Wend rs2.Close Set rs2 = Nothing End With