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
编译错误，未找到方法或数据成员
求高手指教错在哪里，红色字体为错误指向的部分

如果rs是Recordset
Recordset没有RecordSource有Source

这是完全没有数据库编程的基础，只会拷贝他人代码的人问的问题。先去系统学学数据库相关编程知识再来问问题。