Visual Basic - Crear consulta

Hola a todos

Intento crear una consulta pura y dura como se haria en el propio access en VB, es decir tengo una tabla y necesito sacar una consulta con los datos de un determinado valor de un campo.

La consulta en Access seria SELECT Tabla.* FROM Tabla WHERE Tabla.[campo] = 20

tengo el siguiente código:

Dim rs1 As ADODB.Recordset
Dim sql As String
Dim valor as Integer

Set cmd = New ADODB.Command

valor=20
sql = "SELECT Tabla.* " & _
"From tabla " & _
"WHERE (((Tabla.[Campo1] )=" & valor & "))"

Set rs1 = New ADODB.Recordset

rs1.CursorType = adOpenKeyset
rs1.LockType = adLockOptimistic

With cmd
.ActiveConnection = cnn
.CommandText = sql
.CommandType = adCmdStoredProc

End With
Set rs1 = cmd.Execute(sql)

El error que me da es "Se esperaba el nombre de la consulta despues de EXECUTE

Otra forma que he pensado es hacer directamente el SQL e insertarlo en una tabla con el INTO en la sentencia SQL, pero tengo que realizar varias consultas de esa tabla dependiendo del valor que le envio a la función.

Luego tengo que habrir el recorset (rs1) para cojer datos.

Podeis ayudarme.

Salu2

valor=20
sql = "SELECT * From tabla WHERE Campo1=" & valor

si el valor es texto
sql = "SELECT * From tabla WHERE Campo1='" & valor & "'"

espero que sea util