SoloCodigo

tengo el siguiente codigo en el form_load:

private sub form_load()
dim sistema as database
dim nombre as recordset
set sistema = Workspaces(0).Opendatabase(App.Path & "Sistema.mdb")
set nombre = sistema.Openrecorset("productos",dbOpenTable)
dim cadena as string

      If nombre.recordcount > 0 then
nombre.movefirst
     do while Not nombre.EOF
          cadena= nombre!Nombre_del_Producto & Chr(9)
ListaIF.AddItem cadena
nombre.MoveNext
    loop
end if
end sub




********************************


ok
con esto cargo los datos del campo "nombre_del_Producto" al cargar el el listbox...chevere hata aca, el problema es que solo quiero que se muestre los nombres del campo "Nombre_del_producto" PERO QUE EN EL CAMPO "TIPO" SEAN = A "INFORMATICO"



SI ME PUEDEN AYUDAR SE LOS AGRADEZCO....



SALUDOS..........

Si lo que necesitas es cargar los productos cuando tipo sean informaticos podes abrir el recorset distinto, de esta forma

set nombre = sistema.Openrecorset("select productos from <aca le pones el nombre de la tabla> where tipo = 'INFORMATICO')

Saludos


"Nombre_del_producto" PERO QUE EN EL CAMPO "TIPO" SEAN = A "INFORMATICO