Private Sub Command1_Click()
Call LinkData
rs.RecordSource = "select * from 产品入库单 where 入库日期 between '" + Str(DTPicker1.Value) + "' and '" + Str(DTPicker2.Value) + "'order by 入库日期"
DataGrid1.Refresh
Set DataGrid1.DataSource = rs
End Sub
编译错误，未找到方法或数据成员
求高手指教错在哪里，红色字体为错误指向的部分