Private Sub cmdCeShi_Click()
Dim strStemp As String
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
strStemp = "select * from tblZhIChu where 个人编号 like'62900001' and 药店支出日期< 'date()'"
rs.Open strStemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
End Sub