Try
Dim conexion2 As New OleDbConnection
conexion2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=bd.mdb"
conexion2.Open()
MsgBox(total)
adaptador4 = New OleDbDataAdapter("UPDATE facturas SET importe=" & total & " WHERE cod_factura=" & codiguitoFactura & "", conexion)
datos3 = New DataSet()
adaptador.Fill(datos3, "ponerPrecio")
MsgBox("ACTUALIZADA TABLA FACTURAS")
conexion2.Close()
Catch ex As Exception
MsgBox("ERROR EN LA CONEXION")
MsgBox(ex.Message)
End Try