Access XP und docmd.runsql

[Antibiotik]

hallo zusammen,

bei diesem sql statement wird ein laufzeitfehler ausgelöst

Function curUserDat()

    Dim iPersNr As Integer

    Dim sSql As String

    Dim sVorname As String


    sVorname = "Peter"


    sSql = "SELECT Personalnummer FROM personaldaten INTO ipersnr WHERE vorname = sVorname;"


    DoCmd.RunSQL (sSql)

End Function

kann ich überhaupt ein wert in eine variable speichern??

oder was mach ich hier sonst noch verkehrt?

Ciao

Antibiotik