Database forbindelse forskel fra IIS(nt 4.0) til IIS(WK2)

Jeg bruger disse 2 methoder til at hente data:

    Set rs = Server.CreateObject("ADODB.RecordSet")
    SQL_Fields    = "Fieldname"
    SQL_From        = "Tablename"
    SQL_Where        = "(Tablename.Fieldname)=" & Request.QueryString("Field_ID")
    SQL_OrderBy    = "Tablename.Fieldname"
    SQL_Str = "SELECT " & SQL_Fields & " FROM " & SQL_From & " WHERE " & SQL_Where & " ORDER BY " & SQL_OrderBy
    strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/Database/Database.mdb")
    rs.Open SQL_Str, strDSN, 1, 1
    if Not rs.EOF Then
        Do While Not rs.EOF
            Response.Write rs("Fieldname") & vbCrLf     
        rs.MoveNext
        loop
        rs.close
        Set rs = nothing
    else
        rs.close
        Set rs = nothing
    end if

----------------------------------
    Set rs = Server.CreateObject("ADODB.RecordSet")
    SQL_Fields    = "Fieldname"
    SQL_From        = "Tablename"
    SQL_Where        = "(Tablename.Fieldname)=" & Request.QueryString("Field_ID")
    SQL_OrderBy    = "Tablename.Fieldname"
    Str_SQL = "SELECT " & SQL_Fields & " FROM " & SQL_From & " WHERE " & SQL_Where & " ORDER BY " & SQL_OrderBy
    strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/Database/Database.mdb")
    rs.Open Str_SQL, strDSN, 1, 1
    If Not rs.EOF Then
        alldata = rs.getrows
        rs.close
        Set rs = nothing
        numcols = ubound(alldata,1)
        numrows = ubound(alldata,2)
        FOR rowcounter = 0 TO numrows
            Str_Field1    = alldata(0,rowcounter)
            Str_Field2    = alldata(1,rowcounter)
        Next
    else
        rs.close
        Set rs = nothing
    end if

uh, den kræver vist lige lidt forklaring

iøvrigt, jeg får at vide, at der er en fejl i flg. linje:
command.ActiveConnection = "artikel";

jeg fandt syntax fejlen selv