Problemer med sql-string

Hej

Jeg har et objekt som indelholder egenskaben "initialer" og som er formateret som string.

Jeg prøver så at komme igennem med følgende sql-sætningen, men den bliver ved med at give følgende fejl:

Der er ikke angivet nogen værdi for en eller flere krævede parametre.

Min string:

Dim sqlCmd2 As New OleDbCommand("SELECT p.Fornavn FROM Personale AS p WHERE p.Initialer =" & atmd.AfdelingslederInitialer, Conn)
                Dim Reader2 As OleDbDataReader = sqlCmd2.ExecuteReader
                While Reader2.Read
                    atmd.AfdelingslederFornavn = Reader2("Fornavn")
                End While