[Resolvido]Inputbox num comando SQL

Mais uma vez a solicitar a colaboração da malta.

Pretendo colocar um critério num comando SQL (Where Conta = 'a'), mas depois de tantas voltas não consigo entender como posso fazer. 

Junto o código para ver se alguém me dá um help.

Sub ConsultaVBA()

Dim ws As Workspace
Dim db As Database
Dim qry1 As QueryDef
Dim qry2 As QueryDef
Dim a As String

DoCmd.DeleteObject acQuery, "ExtratoVBA"
DoCmd.DeleteObject acQuery, "ExtratoVBAcum"

a = InputBox("Qual a Conta?")


Set ws = DBEngine.Workspaces(0)
Set db = CurrentDb

Set qry1 = db.CreateQueryDef("ExtratoVBA", "Select Data, Diario, Documento, Conta, Descricao, Debito, Credito, (Debito-Credito) as Saldo FROM TransactionID WHERE Conta = 'a' ORDER BY Documento")
Set qry2 = db.CreateQueryDef("ExtratoVBAcum", "Select Data, Diario, Documento, Conta, Descricao, Debito, Credito, Formatcurrency(DSum('[Saldo]','ExtratoVBA','Documento <=' & [Documento])) as SaldoAcum FROM ExtratoVBA")


End Sub

Boa tarde,
Crie nomes sugestivos
Dim strConta as string
strConta= InputBox("Qual a Conta?")

Set qry1 = db.CreateQueryDef("ExtratoVBA", "Select Data, Diario, Documento, Conta, Descricao, Debito, Credito, (Debito-Credito) as Saldo FROM TransactionID WHERE Conta = '" & strConta & "' ORDER BY Documento")

Boas,

Funcionou.  

Muito obrigado mais uma vez

Faltou o Resolvido