Ayuda! Problema al realizar una consulta sql en vb 6

Hola! Por favor ayudenme a solucionar esto, ya que me estoy iniciando en la programación y no he podido resolverlo. Necesito realizar una consulta que me devuelva los registros que superen un valor tal en el campo "metros", la tabla cuenta con los campos: lote,codcategoria,codmarca, codmedida, metros y observación. Mi código es:

Private Sub ConsuMetros()
Dim sBuscar As String
Dim tRs1 As Recordset
Dim tLi As ListItem
Dim cantmetros As Integer
cantmetros = Val(Text2.Text)
sBuscar = "SELECT * FROM lotes WHERE metros >= cantmetros ORDER BY lote"
Set tRs1 = db1.OpenRecordset(sBuscar, dbOpenDynaset)
With tRs1
If (.BOF And .EOF) Then
ListView1.ListItems.Clear
MsgBox "No se han encontrado los datos buscados"
Else
ListView1.ListItems.Clear
.MoveFirst
Do While Not .EOF
Set tLi = ListView1.ListItems.Add(, , .Fields("lote") & "")
tLi.SubItems(1) = .Fields("codcategoria") & ""
tLi.SubItems(2) = .Fields("codmarca") & ""
tLi.SubItems(3) = .Fields("codespecificacion") & ""
tLi.SubItems(4) = .Fields("metros") & ""
tLi.SubItems(5) = .Fields("observaciones")
.MoveNext
Loop
End If
End With
End Sub

me devuelve un error 3061, pocos parámetros, se esperaba 1.

En el dbopensnapshot muestra =2 y trs1= nothing.

En la tabla existen 3 registros que cumplen con un ejemplo de cantmetros que es 150.

Agradeceré su ayuda!