I'm trying to retireve a value from Access table using the following code:

Private Sub VATType_lostfocus()


Me.Refresh
Set a = CurrentDb.OpenRecordset("select sum([Rate]) from VATTyp where [VType] = " & Me.VATType & "")

End Sub

But I get the following error: Run-Time error 3061. Too few parameters. Expected 1

Please help to resolve.