说我参数没设定值？在线== 希望有人速度给个提示

strSQL1 = " Select top 1 B_UseSquence From G_Consume Where B_CardID='" & Trim(Text2(0).Text) & "' order by B_UseSquence DESC"
        rs1.Close
rs1.Open strSQL1, clsDataConnect1.cnnStr, adOpenKeyset, adLockPessimistic前面有用到rs1这里先关掉了，运行后提示我说至少有一个参数没被设定值
帮忙呀，我都看晕了