Whenever I run the following script I receive this error: "ERROR: Invalid Field"

This error comes when I reach this line "Set fld = fldLst.Lookup (000010)"

    Dim src As New LCConnection ("db2") 
    Dim fldLst As New LCFieldList
    Dim fld As LCField
    Dim count As Integer
    
    ' set the appropriate properties to connect
    src.Database = "sample"
    src.Userid = "db2admin"
    src.Password = "password"
    
    src.Connect
    
    ' now connected, we can execute a selection statement
    If (src. Execute ("SELECT * from employee",  fldLst) = 0) Then
        Print "No records were fetched."
        End
    End If
    Set fld = fldLst.Lookup (000010)
    Print "the 'contact names' stored in the table are:"
    
    ' fetch each record from the result set
    While (src.Fetch (fldLst) > 0)
        count = count + 1
        Print "     record #" & Cstr(count) & " = '" & fld.text(0) & "'"
    Wend
    If (count = 0) Then Print "No records were fetched."

Any ideas where is the issue