VB脚本中where的构造来源以及构造思想?

Private Sub cmdQuery_Click()
Dim Sqlstr As String
Dim whrStr As String
Dim feeC As Double
Dim znjC As Double

Dim rstRg As New ADODB.Recordset
'拼Where 语句
whrStr = getWhrStr()
'取得网格的数据
Sqlstr = "select * from feels " & whrStr & " "
'MsgBox Sqlstr
If rsdg.State = 1 Then
rsdg.Close
End If
rsdg.Open Sqlstr, gCnn, adOpenStatic, adLockOptimistic
'Debug.Print Sqlstr
Set rsdg = getQueryData(Sqlstr)
Set dgexp.DataSource = rsdg

Sqlstr = " select sum(feeMoney),sum(Ecount) from feels " & whrStr & " "
If rstRg.State = 1 Then
rstRg.Close
End If
rstRg.Open Sqlstr, gCnn, adOpenStatic, adLockBatchOptimistic
txtCount = Format(rstRg.Fields(0), "####0.00") & " "
txtCountA = rstRg.Fields(1) & " "
rstRg.Close

MsgBox " 数据查询完成,共" & rsdg.RecordCount & " 条

在VB中构造函数 VB脚本中如何用函数空置表单的提交 VB 和 SQL 中 怎么样进行 参数传递 ？例如：VB中把text1的值作为where的查询条件？ 沉积岩的物质来源，分类及构造特征 asp中where的问题 火车中货车的构造 网页VB或许JS脚本中有没有网页每各几秒自动刷新的代码 问个VB脚本的问题 关于用VB脚本编程的问题 关VB脚本的一个问题