[Resolvido]Ajuda SQL com RecordSet

Bom dia

Estou tentando popular um recordset com um parametro no sql, mas quando executo da erro em tempo de execução '3061' Parametros insuficientes. Era esperado 1.

o que eu estou fazendo de errado?

Código:



Dim db As Database
Dim rs As Recordset
Dim strsql As String
Dim comput As String

comput = environ("COMPUTERNAME")

strsql = "SELECT computerName,ID,IP FROM IPs WHERE computerName = " & comput

'Se eu coloco assim funciona

'strsql = "SELECT computerName,ID,IP FROM IPs WHERE computerName = 'PC30'"


Set db = CurrentDb()
Set rs = db.OpenRecordset(strsql)



Creio eu que não estou sabendo combinar a Clausula Where com a minha variavel.
alguem pode me ajudar

grato

Sucesso.

Última Dúvida. E Se fosse número como ficaria?
Pq eu tentei fazer com número e não consegui.

sendo número eu tentei assim:

Dim IND As Long

IND = 10

strsql = "SELECT computerName,ID,IP FROM IPs WHERE computerName = " & IND & ""

Grato pela ajuda Avelino

AFF essa eu me superei na falta de atenção.rsrs
Se eu falar pro access Trazer nameComputer(Texto) = Ind(Numero) só pode dar erro.rsrs

e arrumei para tipo numérico. então ficaria assim

strsql = "SELECT computerName,ID,IP FROM IPs WHERE ID = " & IND

Grato Pela Ajuda Avelino