exportToExcelPrd 是一个模块，但在运行时，显示错误信息“缺乏过程或变量，不是模块”

Private Sub Command4_Click()
Dim startdate As String
Dim enddate As String
startdate = DTPicker1.Value
enddate = DTPicker2.Value

         ExportToExcelPrd ("select ID,opr,recddate,PrdNo,Construction,Spec,YarnCount,Content,Shrink,Color,flexible,Wgtbfwsh,Wgtafwsh,Width,WidthCutable,PcOrYarnDye,currentstock,CareInstr from prdinfo where prdinfo!recddate  Between #" & startdate & "# And #" & enddate & "# and order by prdinfo!recddate")
            
           MsgBox "恭喜你，数据导出成功", 48, "祝贺"
   
End Sub


exportToExcelPrd 是一个模块，但在运行时，显示错误信息“缺乏过程或变量，不是模块”

补充：VB ,  资源