vb oracle 数据库 按时间条件查询

Private Sub Command1_Click()
Set cnn = New ADODB.Connection
cnn.Open "Provider=MSDASQL.1;Password=intimemis;Persist Security Info=True;User ID=mis01;Data Source=ytht"

Dim s As String
s = Text1.Text
Dim rs As New ADODB.Recordset
rs.Open "select * from reportdaily where rq>='to_date(“& s &”,yyyy-mm-dd)", cnn
Set MSHFlexGrid1.Recordset = rs

End Sub
这样不对，请高手指点下，谢谢了

rq>='to_date(“& s &”,yyyy-mm-dd)",
to_date不能用引号括起来。你可以直接用VB的格式化函数来转换S然后再拼字串。