Fejl i script

Hvad gør jeg forkert ?
Der er fejl i følgende linie:
strSQL = strSQL & " (Request.Form("T1") LIKE '" & strKeyword & "'))"



strKeyword = Trim(Request.Form("T1"))
If Len(strKeyword) = 0 Then
Response.Clear
Response.Redirect("soegkunde.asp")
Else
strKeyword = Replace(strKeyword,"'","''")
End If
strSQL = "SELECT TOP 1 ID, " & request.form("D1") & "FROM database WHERE"
strSQL = strSQL & " (Request.Form("T1") LIKE '" & strKeyword & "'))"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=c:\websider\service-info.dk\db\database.mdb"
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN
set record=myConn.execute(strsql)