DISTINCT problem

har lite problem med denna kod här.
får error meddelande :
[Microsoft][ODBC Microsoft Access Driver] The SELECT statement includes a reserved word or an argument name that is misspelled or missing, or the punctuation is incorrect.

fel uppstår på line 8 som är rsR.Open uppdatera, objC, 1, 3
men med stor sannolikhet så är det
uppdatera ="SELECT DISTINCT(kundId),PNamn, FROM PROD WHERE KundId="&nr&""
som är fel
-----------------------------------------------------------------------------------
<%
Set objC = Server.CreateObject("ADODB.Connection")
objC.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db.mdb")&";"
Set rsR = Server.CreateObject("ADODB.Recordset")
dim nr
nr =364498
uppdatera ="SELECT DISTINCT(kundId),PNamn, FROM PROD WHERE KundId="&nr&""
rsR.Open uppdatera, objC, 1, 3
while not rsR.eof

       response.write rsR("kundId")
       response.write rsR("PNamn")
        rsR.movenext
  wend

rsR.Close
objC.Close
set rsR = nothing
set objC = nothing%>
-----------------------------------------------------------------------------------

det jag vill gör är att KundId ska bara skrivas ut en gång och PNamn flera gånge (alltså innehållet)