主题：请帮助修改代码？

请帮助修改代码？

Dim f As New Filler
f.Filter = " 日期 >= #" & e.Form.Controls("DateTimePicker32").Value & "# And 日期 <= #" & e.Form.Controls("DateTimePicker33").Value & "#"
f.SourceTable = DataTables("成品输入")
 '指定数据来源
f.SourceCols = "品号,颜色,匹数,拼包段长,结辨_A,结辨_A1" '指定数据来源列
f.DataTable = DataTables("成品结辨") '指定数据接收表
f.DataCols = "品号,颜色,匹数,拼包段长,结辨原因,结辨个数" '指定数据接收列
f.Fill() '填充数据

如何使上述代码能从外部数据表中提取数据填充。外部数据源：坯布输入

                                                             外部表：成品输入