Consulta sql

[tititen]

Buenas gente, estoy armando un programita en vb6 para manejar una bd access y me encuentro con un pequeño problema.
Tengo dos lsitviews el primero carga los clientes y en segundo se cargan los pedidos del cliente seleccionado, hasta ahi va todo barbaro, el tema es q en los datos de los pedidos hay datos que me aparecen como se guardan el la base.
X ejemplo en la columna engardo me aparece un un codigo en lugar del nombre del encargado.
Ya trate de hacer una consulta con el codigo de encargado a la tabla encargados me no aprarece nada.

Asi lo intento hacer

Set rs = EntornoDatos.base97.Execute("SELECT * FROM Muestras WHERE razon = '" & Item & "'" & "")


lvLista0.ListItems.Clear

rs.MoveFirst

Do While Not rs.EOF



Set tli = lvLista0.ListItems.Add(, , rs.Fields(0) & "")
tli.Tag = rs.Fields(0) & ""
tli.SubItems(1) = rs.Fields(1) & ""
tli.SubItems(2) = EntornoDatos.base97.Execute("SELECT Nombre FROM Modelistas WHERE Idmodelista = rs.Fields(3)")
tli.SubItems(3) = rs.Fields(2) & ""
rs.MoveNext
Loop

End Sub


En rs es un recordset donde se gusradan los pedidos por clientes y la linea en rojo es la columna que me deberia pararecer el nombre y no me aparece nada. Es como si la consulta no arrojara ningun dato