03-02-2010, 01:20 PM
try below to loop through your recordset
Code:
objRS.MoveFirst
While Not objRS.EOF
Val = objRS.Fields("emp")
objRS.MoveNext
Wend