Basic - Visual Basic 6 Nose a definido el tido definido por el usuario

Hola amigos programadores soy programador pero no tan experto nesecito ayuda con un codigo estoy haciendo un programa de control y stock de Herramientas para un amigo.
Nesecito que en un txtbox ponga un numero de legajo y me busque en una base de datos de access todos los registros que tenga ese legajo y me los muestre en un listbox tengo echo el codigo de otros proyectos que ya tenia echos y funcionando copie los codigo y pege en mi proyecto pero me sale el siguiente error ( No se a definido el tipo definido por el Usuario )
aca pego el codigo

Dim rs As ADODB.Recordset
Dim sql As String
Dim itm As ListItem
Dim fecha As Integer
Dim promedio As Long
sql = " select stock * from stock"
If Not conectar() Then Exit Sub
Set rs = cn.Execute(sql)
If Not rs.EOF Then

Do While Not rs.EOF



lista.ListItems.Clear 'vasia y pone en limpio


sql = "select codigo,herramienta,cantidad from stock "
If Not conectar() Then Exit Sub
Set rs = cn.Execute(sql)
If Not rs.EOF Then
Do While Not rs.EOF 'mientras no sea fin de archivo
Set itm = lista.ListItems.Add
itm.Text = rs!codigo
itm.SubItems(1) = IIf(IsNull(rs!herramienta!), "", rs!herramienta)
itm.SubItems(2) = IIf(IsNull(rs!cantidad), "", rs!cantidad)


Set itm = Nothing
rs.MoveNext
Loop
trabajo.SortKey = 0
trabajo.Sorted = True
Else
MsgBox "NO HAY NINGUN TRABAJO REALIZADO EN EL DIA DE HOY!!", vbInformation, "MOSTRAR POR FECHAS"
Set rs = Nothing
End If

desconectar

End If
End Sub