"Violation of PRIMARY KEY constraint"

Hej!
Jag använder SQL Server tillsammans med ASP, och får det här ytterst jobbiga felmeddelandet när jag ska sätta in en ny post i databasen:

Microsoft OLE DB Provider for ODBC Drivers fel '80040e14'

[Microsoft][ODBC SQL Server Driver][SQL Server]Violation of PRIMARY KEY constraint 'PK__orders_k5_52003__7720AD13'. Cannot insert duplicate key in object 'orders_k5_52003'.

/cd_web_1/order.asp, rad 238

Rad 238 är den jag markerat med rött i fet stil i koden nedan.
Jag hittar inget på Google och jag fattar inte ett dugg vad som kan vara problemet. Snälla, hjälp mig! Mycket tacksam för all hjälp jag kan få.

tbl_name = "orders_k5_" & Month(Now()) & Year(Now())

Set Rs = oConn.Execute("SELECT * FROM information_schema.tables WHERE table_name = '" & tbl_name &  "'")

If Rs.EOF Then 'tabellen finns ej
          Rs.Close : Set Rs = Nothing

          'skapa tabellen och nödvändiga fält
          oConn.Execute("CREATE TABLE " & tbl_name & "(" &_
           "Firstname char(200)," & _
           "Lastname char(200)," & _
           "Addrinfo char(200)," & _
           "Street char(200)," & _
           "Streetnumber char(200)," & _
           "Streetalphanumber char(200)," & _
           "City char(200)," & _
           "Postalcode char(200)," & _
           "Phonenumber char(50) primary key," & _
           "Altphonenumber char(200)," & _
           "Email char(200)," & _
           "Civicnr char(200)," & _
           "Subsnrdepotnr char(200)," & _
           "Curefnumber char(200)," & _
           "Prod char(200)," & _
           "Prod_info varchar(500)," & _
           "Agentid int," & _
           "Paymenttype int," & _
           "Orderdate char(200)," & _
           "Comments varchar(500)," & _
           "Agentname char(200)," & _
           "Campaign char(200))")

           '" & tbl_name & "" & _

Else 'tabellen existerar
          [red][b]oConn.Execute("INSERT INTO " & tbl_name & "" & _[/b][/red]
                     "(Firstname,Lastname,Addrinfo,Street,Streetnumber,Streetalphanumber,City,"  &_
                     "Postalcode,Phonenumber,Altphonenumber,Email,Civicnr,Subsnrdepotnr,Curefnumber," & _
                     "Prod,Prod_info,Agentid,Paymenttype,Orderdate,Comments,Agentname,Campaign)" & _
                     "VALUES('" & strFirstName & "','" & strLastname & "','" & strAddrinfo & "','" & strStreet & "'," & _
                     "'" & strStreetnr & "','" & strstreetAlphanumber & "','" & strCity & "','" & strPostalcode & "'," & _
                     "'" & strPhonenumber & "','" & strAlthomephone & "','" & strEmail & "','_Civicnr_'," & _
                     "'" & strSubsNrDepotNr & "','" & strCureFNr & "','" & strProductName & "','_Produktinfo'," & _
                     "'" & strAgentid & "','" & intPaymentid & "','" & Now() & "','" & strComments & "'," & _
                     "'" & strAgentName & "','Kampanj')")
End If