vb 在窗口中建立了公共函数后调用 ，可是参数传不出去

在vb 中的一个窗口里建立了一个函数 ：

Public Sub adoEmployeeInfoRefresh()
'设置ADO控件adoEmployeeInfo的连接字符串
adoWageProvide.ConnectionString = CONSTR
'设置数据源
Dim tmpRecordSource As String
tmpRecordSource = "SELECT sum(sellmoney) as 今天销售总金额 FROM lirunbiao where shijian= CDate('" & asd & "')"
adoWageProvide.RecordSource = tmpRecordSource
adoWageProvide.Refresh
end sub

然后再 窗口的 load 过程里调用
先 给 上面的那个函数 的变量 赋值，
asd = CDate(Now())
然后调用 函数
Call adoEmployeeInfoRefresh
结果 是出来个空记录，参数传的是空值 ，怎么回事？该怎么解决？
当在过程里 定义 asd ="2007-02-10" 这样的时候就可以

vb 在窗口中建立了公共函数后调用 ，可是参数传不出去 VB中如何建立MDI窗口 在VB中构造函数 VB中如何使用GetNextWindow函数枚举所有窗口 access,如何在窗口中建立查询 如何在pb中建立一个函数 在vb中怎样动态创建窗口 VB中无标题窗口显示在任务栏 我想在vb中建立一个command1按钮，点击这个按钮后实现以下功能： 如何在VB中使用API函数