variabel trukket ud af en tabel

Jeg ønsker en record  trukket ud fra en tabel "Firma"
Jeg bruger Access 2007 og VBA
Koderne nedenfor giver fejl på DoCmd.RunSQL
Hvordan skal jeg kode det


Private Sub Recorder_Click()

    Dim Record As Integer
     
    Record = DoCmd.RunSQL("SELECT FirmaId FROM Firma WHERE FirmaId =" & [FirmaId])

If Record=xx then
...
End if