Hvordan for jeg et ID tilføjet her?

Jeg har denne kode:

<%
On Error Resume Next
If Request("oprettet") <> "ok" Then
strNavn = Request.Form("brugernavn") 
strPass = Request.Form("pass") 
strKm = Request.Form("KM") 
strDato = Request.Form("Dato")
strDato = Year(strDato) & "-" & month(strDato) & "-" & Day(strDato)
strTraeningsform = Request.Form("Traeningsform")

' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("kmregnskab.mdb")
Conn.Open DSN

u = Conn.Execute("SELECT id FROM medlem WHERE Navn = '"& strNavn &"' AND pass = '"& strPass & "'")(0)
If NOT isEmpty(u) Then
SQL = "INSERT INTO KmData VALUES ("& u &", #" & strDato & "#, "& strKm &", '"& strTraeningsform &"')"

Conn.Execute(Sql)
Else
Response.write("Forkert brugernavn eller password")
End If

'Response.write(sql & "<hr>"& u &"<hr>")

If Err.Number <> 0 Then 
Response.write("Der opstod følgende fejl<br>" & Err.Description & "<br>") 
Else 

Response.Redirect "?oprettet=ok&strKm="& strKm & "&strNavn="& strNavn &"&strTraeningsform=" & strTraeningsform

End If 

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing

Else
Response.write(Request("strKm") & " km er blevet tilføjet til " & Request("strNavn") & "´s konto i regnskabet vedr. "& Request("strTraeningsform") &".<br><br>") 
End If
%>

Jeg vil også gerne ha' at de rudover de fire parametre som gemmes i databasen, derudover også tilføjes et unikt ID (autonumber) til et felt der hedder DID! Hvordan gør jeg det?

Fomse:-)