[RESOLVED]selecting string from field error

[George-LSA]

i got an error while trying to compile the following code

Dim strWO
Dim strStatus
Dim rs
Dim strCnn
Dim strSQL
 
strCnn="DSN=blabla;USER ID=blabla;PASSWORD=blabla;"
 
strWO=WORKORDER_BASE_ID
 
strSQL="SELECT USER_2 FROM REQUIREMENT WHERE 
WORKORDER_BASE_ID='02028'"
 
Set rs=CreateObject("ADODB.Recordset")
 
rs.Open strSQL, strCnn
 
     IF not rs.eof Then
    [b]USER_7 = rs("USER_1")[/b]
    USER_8 = rs("USER_2")
    USER_9 = rs("USER_3")
    MACRO_SUCCESS = TRUE
     ELSE
    MACRO_SUCCESS = FALSE
    MACRO_MESSAGE = "No Records Found"
     END IF
 
rs.Close
Set rs = Nothing
Set strCnn = Nothing

the error i recieved is "item cannot be found in the collection corresponding to the request name or ordinal". the error is on line 19. i have put it in bold

can someone please give me a hand on this one

thank you