cn.Open()
Try
sql = "select Campo_1,campo_2 from tabla"
Dim cmd As New SqlCommand(sql, cn)
Dim dr As SqlDataReader = cmd.ExecuteReader
Dim dt As New DataTable
dt.Load(dr)
Nombre_Combo.DataSource = dt
Nombre_Combo.DisplayMember = "Campo_1" valor q se muestra en el combobox
Nombre_Combo.ValueMember = "Campo_2" valor q no se muetra en el combobox
cmd.Dispose()
Catch ex As Exception
MsgBox(ex.Message)
End Try
cn.Close()