problem med logindsystem

Jeg har et problem med mit loginsystem.

Jeg kan ikke logge ind, via det. Den skal tjekke felterne: "telefon" og "password" felterne er af typerne tekst

Koden jeg tjekker med er:

strUID = Trim(Replace(Request.Form("telefon"),"'",""))
strPWD = Trim(Replace(Request.Form("Adgangskode"),"'",""))

If Len(strUID) > 0 And Len(strPWD) > 0 Then

Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../butik.mdb")

strSQL = "SELECT * FROM kunder WHERE (telefon = ' & strUID & ') AND (password = '" & strPWD & "')"

Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then

intUID = rs("telefon")
Else

strERR = "Forkert telefonnummer eller adgangskode"
End If