Datenbank um Datensatz erweitern

[Felix]

Hallo ihr schlauen füchse...

ich will einen datensatz zu einer datenbank hinzufügen:

<%

Dim objConn
 Set objConn = server.createobject("adodb.connection")
    objConn.open "test"

Dim sqlCommand
   sqlCommand = "Select rand_name, " &_
            "rand_vorname, " &_
            "rand_street, " &_
            "rand_zip, " &_
            "rand_city, " &_
          "From TestTabelle" &_
          "Where 1<0"

Dim objRS
  Set objRS = server.createobject("adodb.Recordset")
      objRS.CursorLocation = adUseClient
      objRS.Open sqlCommand, objConn, adOpenStatic, adLockOptimistic

If objRS.Supports(adAddNew) Then

objRs.AddNew
      objRs.Fields("rand_name")  = "Ehrlich"
      objRs.Fields("rand_vorname")= "Ernst"
   objRs.Fields("rand_street") = "Ebersdorfer Str. 5"
   objRs.Fields("rand_zip")  = "567890"
   objRs.Fields("rand_city")   = "Ecksberg"
   objRs.Update

Response.Write "Der Datensatz wurde eingefügt"
  Response.Write "<a href=""localhost/test/test.asp"">Link</a>"

Else

Response.Write "Der Datensatz wurde nicht eingefügt"
  Response.Write "<a href=""localhost/test/test.asp"">Link</a>"
    End if

objRs.Close
  Set objRS = Nothing

objConn.Close
 Set objConn = Nothing

%>

wenn ich jedoch versuche das zu tun, wird ausgegeben dass hier:

objRS.CursorLocation = adUseClient
   objRS.Open sqlCommand, objConn, adOpenStatic, adLockOptimistic

ein fehler vorliegt... ich habe das aber aus dem ASP Codebook (Addison-Wesley) übernommen...

was habe ich falsch gemacht?

gruß, Felix