vb+ms sql+crystal reports4.6怎样刷新sql语句数据呢query = "select * from dip where a=1 and b=5"
Report1.ReportFileName = "D:\222\图片\dip.rpt"
Report1.Connect = "DSN = tdqd;UID = sa;PWD =;DSQ = Administration"Report1.SQLQuery = query
Report1.Formulas(0) = "mm='" & Format(Date, "yyyy-MM-dd ") & Format(Time, "hh:mm") & "'"
With Report1
    .WindowState = crptNormal
    .WindowLeft = 0
    .WindowTop = 50
    .WindowWidth = 1500
    .WindowHeight = 500
    .Action = 5
End With写了以上数据结果还是什么也没有,只页眉!请大家指教,写出代码!