Visual Basic - consulta error de data.fields!!!

HOLA AMIGOS, TENGO EL ERROR EN ESTAS SENTENCIA RESPECTO AL USO DEL .FIELDS, EM ARROJA PROBLEMAS DE LIBRARY AL UTILIZARLA, ESTAS SON LAS SENTENCIAS.

GRACIAS


db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Password='';User ID=;Data

Source=c:\paqitsa\datos_paq\dB1.mdb ;Mode=Share Deny None;Extended Properties='';Jet OLEDB:System database='';Jet OLEDB:Registry Path='';Jet OLEDB:Database Password='';Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password='';Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False"


Set conp = db.Execute("select * from proveedores order by nombre_prov")
If conp.EOF = True Then
MsgBox "No existen datos de Proveedores. Debe ingresarlos primero"
Unload Me
Else
Do Until conp.EOF = True
entry = conp.Fields("NOMBRE_PROV")*********************************ERROR
Combo1.AddItem entry
conp.MoveNext


END IF