Código:
Dim cn as new sqlconnection(strcn) ----- strcn tiene tu variable conexion a la base de datos
cn.open
try
sql="select id_pais, nom_pais from paises where id_pais=@id_pais"
dim cmd as new sqlcommand(sql,cn)
dim dr as sqldatareader=cmd.executereader
dim dt as new datatable
dt.load(dr)
cbopaises.datasource=dt
cbopaises.valuemember="ip_pais"
cbopaises.displaymember="nom_pais"
cmd.dispose
catch
msgbox(ex.message)
finally
cn.dispose
end catch
end sub
Intenta con eso...si no funca, trata de detallar mas lo que quieres y para la prox vez no trates buscar la respuesta fácil y que te la den :/