El de arriba es para asp.net
para win form se hace lo siguiente:
1.- Crear funcion.---
Código:
Private Sub Llenar_combo()
'Mi conexion.....
'Mi query.....
'Mi adaptador
'Mi dataset
With combobox1
.DataSource = ds.Tables("mitabla")
.DisplayMember = "nombre_campo"
.ValueMember = "Id"
End With
End Sub
2.- En el form nada mas se llama la funcion.--
Código:
Private Sub form1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Llenar_combo()
End Sub
Suerte.--
Miguel--in---