Visual Basic - Problemas con SQL

Alguien me puede decir como puedo construir una sentencia sql que pase los datos por medio de variables.
se lo agradeceria mucho.

Espero que esto te sirva
Asumo que ya sabes crear una coneccion a una base de datos y crear un recordsert

Dim Msg, Estilo, Título
txtCampo = 'Parametro
Set rs = New ADODB.Recordset
sql = "SELECT * FROM TABLA "
sql = sql & "WHERE CAMPO = '" & txtCampo & "'" 'Sies numeri va sin comillas
sql = sql & "ORDER BY CAMPO ASC"
On Error GoTo rsError_Handler
With rsvCheques
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockBatchOptimistic
.Open sql, cn
End With
'---
Set Grid.Datasource = rs
Exit Sub

rsError_Handler:
Msg = str(Err.Number) & " " & Err.Description
Estilo = vbCritical + vbOKOnly
Título = "Error"
MsgBox Msg, Estilo, Título
Exit Sub
Saludos desde Lima