Hola! El combo lo puedes llenar usando el mismo metodo que un llenado de grilla mediante un Datatable, pero te paso el codigo de llenado de grilla :
Código vb:
Ver originalPublic Function Listado_de_Datos(ByVal sql As String) As DataTable
Dim tabla As New DataTable()
Try
Dim adapter As OdbcDataAdapter
adapter = New OdbcDataAdapter(sql, datos)
adapter.Fill(tabla)
Catch ex As Exception
MsgBox("Error" & ex.ToString)
Return Nothing
End Try
Return tabla
End Function
luego por ejemplo en un evento click de un boton haces esto :
Código vb:
Ver originalTuDataGridView.DataSource = Listado_de_Datos("Select*From TuTabla")
y ya está. Cualquier otro inconveniente nos los dices. Saludos!
.