Command objektet

Hej Eksperter,

Jeg er før blevet rådet til at bruge Command objektet, men ku godt bruge lidt hjælp til at få det ændret.

Jeg vil gerne ændre flg:
<%
set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=SQLOLEDB;Data Source=xx;Initial Catalog=xx;User Id=xx;Password=xx;"

    SQL = "select * from Featurestories where ID = " & Request("ID")
    Set RS = Conn.Execute(SQL)

    Var_Text1 = RS("Text1")
    Var_Text7 = RS("Text7")   
    Var_Note1 = RS("Note1")

    RS.Close
    Set RS = Nothing
    Conn.Close
    Set Conn = Nothing
%>

Til formen:
    set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open "Provider=SQLOLEDB;Data Source=xx;Initial Catalog=xx;xxId=xx;Password=xx;"
    strSQL = "SELECT * FROM customers WHERE ([ID] = ?)"

    set cmd = Server.CreateObject("ADODB.Command")
    set cmd.ActiveConnection = Conn
    cmd.CommandType = adCmdText
    cmd.CommandText = strSQL
    cmd.Parameters.Append cmd.CreateParameter("@ID", adVarChar, adParamInput, 255, Session("userID"))
    Set rs = cmd.Execute()


Det burde ik være så svært for en der har lidt mere forstand på asp end jeg :) På forhånd tak