¿Cómo formular una consulta?

¿Código sobre que tema?

Me podrías enviar algo de código te lo agradecería mucho

Tengo una base de datos en Access en la cual tengo una consulta y al momento que intento hacer una búsqueda se hace un poco lenta
Mi programación es la siguiente
Sub Stock_Producto()
Set ConStock = New ADODB.Recordset
ConStock.Open "Select * From con_Stock", DATABASE, adOpenKeyset, adLockReadOnly
'Realiza la busqueda
ConStock.Close
SQL = "select * from con_Stock where id_producto='" + Text1.TEXT + "'"
ConStock.Open SQL, DATABASE, adOpenKeyset, adLockOptimistic
If ConStock.EOF = False Then
st = ConStock!Stock
Else
st = 0
End If
End Sub