With ADODC1 
     .ConnectionString = "driver={SQL 
    Server};server=;uid=sa;pwd=pwd;database=" 
     . RecordSource = "Select * From test Where date = " & 输入的Date & " 
    and time=" & 输入的Time 
     End With 
     set text.datasource=adodc1 
    另外在程序设计中，最好使用Ado对象而不用Ado控件,效率比较高,也比较方便。 
<END>
