combo box con valor

[mindoata]

buenos dias amigos,

Estoy programando en vb.net 2008, estoy novato en este tema, mi pregunta es: tengo formulario de ingreso q me funciona bien, un datagrid que me muestra los datos ingresados, pero el problema es al querer modificar un registro existente,
en los textbox me muestra el valor q tiene correctamente, pero en los combo box no he logrado q lo muestre.
estos combo box los lleno con una tabla en la base de datos, pero me deberia mostrar el seleccionado y abajo los demas.

Mi problema es mas que todo de ignorancia para asiganarle ese valor al objeto combo, he investigado en google pero no consigo nada de ese tema.

Mi codigo del formulario de Datagrid y el formulario de editar inicial es el siguiente:

EVENTO EN EL BOTON QUE ME MANDA LOS DATOS DEL DATAGRID AL FORMULARIO EDITAR

Código:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim indiceDataGrid As Integer

        frmTLevanNu = New formLevantamientoNuevo
        form2 = New formLevantamientoNuevo2
        form3 = New formLevantamientoNuevo3

        indiceDataGrid = DataGrid1.CurrentRowIndex()
        frmTLevanNu.id.Text = DataGrid1.Item(indiceDataGrid, 0)
        frmTLevanNu.NoSoli.Text = NoSoli.Text
        frmTLevanNu.idElemento.Text = idElemento.Text
        frmTLevanNu.TextBox1.Text = DataGrid1.Item(indiceDataGrid, 1)
        frmTLevanNu.TextBox2.Text = DataGrid1.Item(indiceDataGrid, 2)
        frmTLevanNu.TextBox3.Text = DataGrid1.Item(indiceDataGrid, 3)

       'AQUI LE ASIGNO AL COMBO BOX EL VALOR DEL INDICE DATAGRID

        frmTLevanNu.ComboNt.ValueMember = DataGrid1.Item(indiceDataGrid, 4)


       frmTLevanNu.TextBox4.Text = DataGrid1.Item(indiceDataGrid, 5)
        frmTLevanNu.ComboElement.Text = DataGrid1.Item(indiceDataGrid, 6)
        frmTLevanNu.TextBox5.Text = DataGrid1.Item(indiceDataGrid, 7)
  
        frmTLevanNu.ShowDialog()
    End Sub

PRIMER FORMULARIO DE EDITAR

Código:

Private Sub formLevantamientoNuevo_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim con As DBSqlCe
        Dim con1 As SqlCeConnection
        Dim sqlSTR As String
        Dim sqlSTR1 As String

        Dim ds1 As DataSet = New DataSet
        Dim ds2 As DataSet = New DataSet
        con = New DBSqlCe
        con1 = con.OpenConnection()
        Dim data1 As SqlCeDataAdapter
        data1 = New SqlCeDataAdapter
        Dim data2 As SqlCeDataAdapter
        data2 = New SqlCeDataAdapter
        Dim Orden1 As SqlCeCommand
        Dim Orden2 As SqlCeCommand
       

       

        sqlSTR = "Select nivel from nivelTension"
        Orden1 = New SqlCeCommand(sqlSTR, con1)
        data1.SelectCommand = Orden1
        data1.Fill(ds1, "tra")

        'AQUI LE ASIGNO AL COMBO BOX EL VALOR DE LA CONSULTA Y DEBERIA  ASIGNARLE EL VALUERMEMBER. PERO COMO?

        Me.ComboNt.DataSource = ds1.Tables(0)
        ComboNt.DisplayMember = "nivel"

        sqlSTR1 = "Select elemento from elemento"
        Orden2 = New SqlCeCommand(sqlSTR1, con1)
        data2.SelectCommand = Orden2
        data2.Fill(ds2, "tra")
        Me.ComboElement.DataSource = ds2.Tables(0)
       

        con.CloseConnection(con1)

    End Sub

Espero cualquier ayuda, gracias.

[Ka0stj]

Ok una pregunta, no te muestra nada de información? o cual es el problema.

[mindoata]

hola Ka0stj, si me muestra informacion, la de la tabla de la base de datos, el problema es que me deberia salir seleccionado el valor que se le ha asignado en el ingreso y abajo los demas valores, y no me sale asi si no el valor inicial de la tabla.

me hago entender.

[Ka0stj]

Hola mindoata

Claro que si, mira yo hice una prueba primero cargandole la información de la BD al combobox, posteriormente le asigno el valor del datagrid con el combobox1.Text = valor . De esta forma asigna ese valor y si presionas el combobox te mostrará toda la información que cargaste.

[mindoata]

Perfecto Ka0stj, eres un genio, me imagino que es algo facil pero cuando uno esta aprendiendo todo es dificil, Mil gracias por tu ayuda.

[Ka0stj]

Ok, si te funcionó? era lo que esperabas ver?

Saludos!

[mindoata]

si Ka0stj, esta perfecto, gracias.