添加報表控件DataReport，根據需要排列RptTextBox，date DTPicker1\ DTPicker2，print按鈕，雙擊command1按鈕添加代碼:
私有子命令1_Click()
將cn標註為ADODB。關系
Dim rs為ADODB。記錄集
將Sql顯示為字符串
連接到數據庫(Access)
Set cn = New ADODB。關系
cn。Open "Provider=Microsoft。Jet . OLEDB.4.0數據源=" + App。路徑與路徑。" \ slw 2000 . MDB "+"；持久安全信息=False "
打開記錄集(按日期查詢)
Set rs = New ADODB。記錄集
Sql = "從配料記錄中選擇產品代碼、原材料和重量、日期、內部代碼和外部代碼" &；_
"其中日期介於# " &；格式(DTPicker1，" yyyy-mm-DD ")& amp；" #和# " & amp格式(DTPicker2，" yyyy-mm-DD ")& amp；"#"
rs。打開Sql，cn，adOpenKeyset，adLockOptimistic
設置文本控件屬性。
data report 1 . sections(" section 1 ")。控件(“RPT文本框1”)。Datafield =產品代碼。
data report 1 . sections(" section 1 ")。控件(“RPT textbox2”)。Datafield =原材料的名稱。
data report 1 . sections(" section 1 ")。控件(“RPT textbox3”)。數據字段=重量。
data report 1 . sections(" section 1 ")。控件(“RPT textbox4”)。Datafield =日期。
data report 1 . sections(" section 1 ")。控件(“RPT textbox5”)。Datafield =內部代碼。
data report 1 . sections(" section 1 ")。控件(“RPT textbox6”)。Datafield =外部代碼。
設置DataReport1。數據源= rs
末端接頭
私有子窗體_Load()
DTPicker1。值=日期
DTPicker2。值=日期
末端接頭