Código
Public conexion As OleDbConnection Public adaptador As OleDbDataAdapter Public comando As OleDbCommand Dim ruta As String = "C:\col.mdb" Dim CadenaC As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ruta conexion = New OleDbConnection(CadenaC) conexion.Open() Dim tabla As DataSet tabla = New DataSet adaptador = New OleDbDataAdapter("select Precio_Venta_al_Cliente, libro from Libros WHERE libro = '" & a(i) & "'", conexion) 'nombre del libro seleccionado anteriormente adaptador.Fill(tabla, "Libros") ListBox2.DataSource = tabla.Tables(0) ListBox2.DisplayMember = "Precio_Venta_al_Cliente" dim preciolibro as integer= ListBox2.SelectedValue = "Id_libro" Dim CadSQL As String = "insert into Ventas (Alumno, libros, Precio_Venta_al_Cliente) values ('" & alumno & "','" & a(i) & "','" & preciolibro & "')" comando = New OleDbCommand(CadSQL, conexion) comando.ExecuteNonQuery()
Lo que esta
Decir que los precios no se repiten y por eso solo va a existir un precio como variable.
¿Como recojer en dim preciolibro el textbox1 cargado que corresponde al precio del libro?
[MOD]: Los códigos deben ir en su respectiva etiqueta, si quieres resaltar algo utiliza la sintaxis adecuada.