Olá pessoal,estou buscando informações na tabela do acccess2000 utilizo ADO , até ai beleza.
o problema é,que ele traga ,a imagem de acordo com o nome do cartão que está na combox.
ex: na minha combo:tem vários nomes de cartão: visa,mastercard,etc...
eu seleciono visa, ai ele carrega o logo do visa, ele carega todas as informações menos a figura.

na minha tabela no access2000 ,o campo que armazena as figura ta com o nome: Imagem , tipo de dados Objeto/Ole.
veja como estou procedendo.
 
Grato a todos!!!

Set rst_Cartao = bd.Execute("Select *From Tab_Cartao where ucase (Cartao) =  '" & cmb_cartao.Text & "'")

'LOCALIZA CAMPOS NA BASE PRODUTOS !
If rst_Cartao.RecordCount = 0 Then
        MsgBox "Produto sem dados !"
     Else
        txt_id_cartao.Text = IIf(IsNull(rst_Cartao!Id_cartao), 0, rst_Cartao!Id_cartao)
        img_cartao.Picture = IIf(IsNull(rst_Cartao!Imagem), 0, rst_Cartao!Imagem)
        txt_nome.Text = IIf(IsNull(rst_Cartao!Nome), 0, rst_Cartao!Nome)
        txt_cliente.Text = IIf(IsNull(rst_Cartao!Cliente), 0, rst_Cartao!Cliente)
End If

Set rst_Cartao = Nothing

Meu caro não estou com o VB aqui mas te digo que a propriedade que vc está usando serve para carregar um arquivo tipo BMP, JPG, Etc e não para campos tipo imagem.

Tente outra propriedade .. DataSource (Recordset)... depois DataField (coloque o campo).

amkiguinho (hiihhiihii) como sao só as imagens dos cartões pq vc nao faz assim:

cria o form com um picturebox pra cada cartão, e no seu form onde vai ser mostrado a figura de acordo com o nome no combox deixa o picturebox.picture = formcatortoes.pictureboxDOcartao.picture e assim é batata....

Galera !Vou testar as dicas de vcs, depois eu posto o resultado.

Gratos!!!

Bom utilizei a forma do "Afterra"  pq são só 6figuras , funcionou, e já me ajudou. agradeço também ao Erico.Porém Amanhã ou depois que precisar buscar de uma tabela. vou ter que correr atrás..

 

utilizei esta forma pra quem quiser:

Select Case cmb_cartao.Text
    Case "Visa"
        img_visa.Visible = True
        img_master.Visible = False
        img_maestro.Visible = False
        img_american.Visible = False
        img_credicard.Visible = False
        img_diners.Visible = False

End Select

 

Agradeço a todos!! quem tiver alguma dica de como exbir figuras de uma tabela no form ,me avise.

blz....