如何向VB的数据环境传递参数

[freebird_china]

各位大虾:
小弟,最近做VB的一个报表,该报表是结合VB6的数据环境的,我在数据环境中定义了一个COMMAND,它是用SQL指定的,但SQL语句中有一个变量参数,该参数要通过窗体来传递,试问大虾,如何完成这个数据传递
如能附一简单例子予以点拨,小弟万分感激! 50分

[foolishtiger]

Dim cn As ADODB.Connection
Dim cmd As ADODB.Command
Dim par As ADODB.Parameter

Set cn = New ADODB.Connection
Set cmd = New ADODB.Command
Set par = New ADODB.Parameter

' 获取参数值并追加参数。
cmd.Parameters.Append par
par.Value = ()'在这里指定参数的值

cmd.Execute

cn.Close
Set cn = Nothing

[yang_xv]

dev 为数据环境名称
cmm 为数据环境中定义COMMAND
在程序中如下使用

dev.cmm "接参数值"