super tema guarda combo en mdb

[guillebomtrasmiti]

Hola amigos, tengo unos textbox que guardo su información en una tabla de una base de datos access, por ahí todo genial...pero cuando le paso que guarde también los valores del combo box...me guarda datos que no son los que esperaba, os paso el código para ver si detectais que hago mal, gracias a todosssssss

Dim adapta2 As New OleDbDataAdapter
Dim datavacio As New DataSet

'Try
Dim comados = conexion.CreateCommand

comados.CommandText = "INSERT INTO LineasFacturasHCabecera (CodProveedor,NombreProveedor,NFacturaSRCabecera,O troDto,OtroImpuesto,TotalFactura) " _
+ "values (@Cod,@Nomb,@Cabe,@OtroD,@OtroI,@Tot)"
'"SELECT @@Identity"

'Dim Id As OleDbParameter
Dim cod As OleDbParameter
Dim Nomb As OleDbParameter
Dim Cabe As OleDbParameter
Dim OtroD As OleDbParameter
Dim OtroI As OleDbParameter
Dim Tot As OleDbParameter

cod = New OleDbParameter("@Cod", OleDbType.Integer) '(@cod)
Nomb = New OleDbParameter("@Nomb", OleDbType.WChar) '(@Nomb)
Cabe = New OleDbParameter("@Cabe", OleDbType.WChar) '(@Cabe)
OtroD = New OleDbParameter("@OtroD", OleDbType.Integer) '(@OtroD)
OtroI = New OleDbParameter("@OtroI", OleDbType.Integer) '(@OtroI)
Tot = New OleDbParameter("@Tot", OleDbType.Single) '(@Tot)


cod.Value = Me.UCProveedores.ValueMember = "NProveedor"
Nomb.Value = Me.UCProveedores.DisplayMember = "NomProveedor"
Cabe.Value = Me.TextNFactura.Text
OtroD.Value = Me.TextoTRDTO.Text
OtroI.Value = Me.TextotrImp.Text
Tot.Value = Me.TextTotal.Text

comados.Parameters.Add(cod)
comados.Parameters.Add(Nomb)
comados.Parameters.Add(Cabe)
comados.Parameters.Add(OtroD)
comados.Parameters.Add(OtroI)
comados.Parameters.Add(Tot)


conexion.Open()
' Dim nu As Integer = CInt(
comados.ExecuteNonQuery()
' Actualizar()
conexion.Close()
Return

End Sub

[guillebomtrasmiti]

por cierto el combo box lo cargo con una tabla diferente a la que deseo enviarle los datos, lo digo por que ahí vereis que el value member..etc pertenecen a otra tabla, graciassss

[guillebomtrasmiti]

arreglado...para quien le pueda servir amigossss...es así

cod.Value = Me.UCProveedores.Value
Nomb.Value = Me.UCProveedores.Text