Problemer med SQL streng

Hey Boys and Girls

Jeg er kørt lidt fast, så håber i kan hjælpe mig.

Jeg er ved at lave et script, som skal uddele nogle netværksdrev til den bruger som logger på maskinen. Da ikke alle bruger skal have det samme, så tjekker jeg på brugernavnet via en MySQL DB, for at se hvad brugeren skal have tildelt.

--------------------------- Koden -------------------------------

Dim objNetwork
Dim strDriveLetter, strRemotePath, strUserName, strPDrev

Set objNetwork = CreateObject("WScript.Network")


strUserName = objNetwork.UserName

SQLserveradr    ="localhost"
SQLdatabase    ="LogOnScript"   
SQLUser        ="root"
SQLpassword    =""


Set Conn = CreateObject("ADODB.Connection")
Conn.Open "driver={MySQL ODBC 3.51 Driver};server="& SQLserveradr &";database="& SQLdatabase &";uid="& SQLUser &";pwd="& SQLpassword

    SqlQuery = "SELECT DriveLetterP FROM users WHERE UserName = 'strUserName'"
    set rs_LogOn = conn.Execute(SqlQuery)

    If rs_LogOn.EOF or rs_LogOn.BOF Then
        Resultat = "Der var ingen data"
    Else
        strPDrev = rs_LogOn("DriveLetterP")
            if strPDrev = 1 Then
            strDriveLetter = "X:"
            strRemotePath  = "\\Servernavn\Mappenavn"   
            objNetwork.MapNetworkDrive strDriveLetter,strRemotePath
            Resultat = "Det virkede"
            else
                Resultat = "Det virker ikke"

            end if   
    End if           

conn.Close
Set conn = nothing
Set SQL_Found = nothing
Set SQL_Update = nothing


MsgBox "Resultat:  " &Resultat
-------------------------- Kode Slut ----------------------------

Problemet ligger i SQL forspørgelsen. Det er som om, at den ikke kan læse hvad der står i den tekst streng, som hedder "strUserName". Dette gør at jeg bare for af vide at der ikke var nogen data. Jeg har tjekket at "strUserName" har den værdi som jeg skal bruge, og hvis jeg sætter værdien ind manuelt, så virker scriptet også fint.

Er der nogen der kan sige mig hvad der er galt?