Visual Basic - Como hago para que funcione este select

Amigos necesito una mano es bastante sencillo pero no me sale:

El tema es asi:

Tengo una Variable del tipo string que se llama OpcionCategoria a la cual le asigno un valor por ejemplo:

Private Sub op850G1_Click()
OpcionCategoria = 1
End Sub

Bien hasta ahi todo bien pero yo ahora necesito hacer una consulta sql como esta:

Set rsbuscar = dbbuscar.OpenRecordset("SELECT Numero, Piloto, Marca " & "FROM Pilotos Where Categoria = 1")

En donde reemplaze el 1 que esta despues de Categoria = 1 por el valor que tengo en OpcionCategoria para que pueda hacer distintas busquedas en base a este parametro.

Desde ya muchas gracias.

Deberias hacer algo asi

Set rsbuscar = dbbuscar.OpenRecordset("SELECT Numero, Piloto, Marca " & "FROM Pilotos Where Categoria = " & Opcion Categoria )

Pero ten cuidado que si el campo a consultar en la base de datos es de tipo String debes hacerlo con '

Set rsbuscar = dbbuscar.OpenRecordset("SELECT Numero, Piloto, Marca " & "FROM Pilotos Where Categoria = ' " & Opcion Categoria & " ' " )

Prueba a ver y nos avisas

Gracias juan lo pruebo y te digo que paso.

Y COMO SE HACE PARA VOLCAR EL RESULTADO DE ESA CONSULTA EN UNA NUEVA VARIABLE???
Y SEGUN EL TIPO DEL RESULTADO DEPENDE LA FORMA DE VOLCAR LA CONSULTA EN UNA VARIABLE?

GRACIAS