你定义了这么一个函数:
Public Function 数据源()
cmd.connection name="a"
End Function
你在什么地方执行了这个函数? 不执行,函数不会自己发生作用。