标题: ADO 如何打开参数查询 [打印本页] 作者: rcylbx 时间: 2007-11-7 15:44 标题: ADO 如何打开参数查询 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