Llenar Combobox desde la BD

[charliester]

'cadena de conexion
Dim miconexion As New SqlClient.SqlConnection(My.MySettings.Default.Conn Str)

'aqui se conecta el combobox con la base de datos
miconexion.Close()
miconexion.Open()
Dim cmd2 As New SqlClient.SqlCommand("Select * from TABLA order by VALOR PARA QUE ORDENE", _
miconexion)
Dim miReader2 As SqlClient.SqlDataReader = cmd2.ExecuteReader(CommandBehavior.CloseConnection )
Dim tabla2 As New DataTable
tabla2.Load(miReader2)
miReader2.Close()
With cbxPrevisiones
.DataSource = tabla2
.ValueMember = "id_de_tu_tabla"
.DisplayMember = "valor de tu tabla que quieres que muestre"
End With