Imports System.Data.OleDb
Public Class menusnack
    Dim cn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\alfornosoft\base\db.accdb;Jet OLEDB:Database Password=ideasrenova")
    Dim papas As Integer
    Dim bolitas As Integer
    Dim palitos As Integer
    Dim aritos As Integer
    Dim dtFecha As DateTime = DateTime.Now
    Dim insertafecha As String

    Private Sub bt_papas_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_papas.Click
        papas = papas + 1
        numpapas.Text = papas
        If papas > 0 Then
            bt_mpapas.Visible = True
            bt_mpapas.Enabled = True
        End If

    End Sub

    Private Sub menusnack_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim ada As New OleDbDataAdapter("SELECT MAX(Id) FROM orden_previa", cn)
        Dim dset As New DataSet
        ada.Fill(dset)
        muestraorden.Text = dset.Tables(0).Rows(0).Item(0) + 1
        id_cliente.Text = module1.llevateelid
        bt_mpapas.Visible = False
        bt_mbolitas.Visible = False
        bt_mpalitos.Visible = False
        bt_maritos.Visible = False
        insertafecha = dtFecha.ToString("dd/MM/yyyy")
    End Sub
//AQUI MUESTRA EL ERROOOOR
    Private Sub bt_continuar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_continuar.Click
        Dim ada As New OleDbDataAdapter("SELECT papas_snack,bolitas_snack,palitos_snack,aritos_snack FROM orden_previa WHERE Id='" & Convert.ToString(muestraorden.Text) & "'", cn)
        Dim dset As New DataSet
        ada.Fill(dset)
        If MsgBox("Confirma el pedido:" & vbNewLine & "Papas:   " + Convert.ToString(papas) & vbNewLine & "Bolitas:  " + Convert.ToString(bolitas) & vbNewLine & "Palitos:  " + Convert.ToString(palitos) & vbNewLine & "Aritos:   " + Convert.ToString(aritos), MsgBoxStyle.OkCancel) = MsgBoxResult.Ok Then
            Dim comm As New OleDbCommand
            comm.Connection = cn
            comm.CommandType = CommandType.Text
            comm.CommandText = ("UPDATE orden_previa SET papas_snack = '" + Convert.ToString(papas) + "', bolitas_snack = '" + Convert.ToString(bolitas) + "', palitos_snack = '" + Convert.ToString(palitos) + "', aritos_snack = '" + Convert.ToString(aritos) + "' WHERE Id = '" + Convert.ToString(muestraorden.Text) + "'")//sentencia UPDATE QUE ESTA MAL
            cn.Open()
            comm.ExecuteNonQuery()//LINEA EN LA QUE SE DETIENE
            cn.Close()
            MsgBox("Se inserto correctamente", MsgBoxStyle.Information, "Correcto!")//AQUI TERMINA EL ERROR
            Me.Hide()
        End If
    End Sub
    Private Sub bt_bolitas_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_bolitas.Click
        bolitas = bolitas + 1
        numbolitas.Text = bolitas
        If bolitas > 0 Then
            bt_mbolitas.Visible = True
            bt_mbolitas.Enabled = True
        End If
    End Sub

    Private Sub bt_palitos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_palitos.Click
        palitos = palitos + 1
        numpalitos.Text = palitos
        If palitos > 0 Then
            bt_mpalitos.Visible = True
            bt_mpalitos.Enabled = True
        End If
    End Sub

    Private Sub bt_aritos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_aritos.Click
        aritos = aritos + 1
        numaritos.Text = aritos
        If aritos > 0 Then
            bt_maritos.Visible = True
            bt_maritos.Enabled = True
        End If
    End Sub

    Private Sub bt_mpapas_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_mpapas.Click
        If papas < 1 Then

            MsgBox("No se puede continuar restando porque el valor es de 0", MsgBoxStyle.Critical)
            numpapas.Text = papas
            bt_mpapas.Enabled = False
        Else
            bt_mpapas.Enabled = True
            papas = papas - 1
            numpapas.Text = papas
        End If
    End Sub

    Private Sub bt_mbolitas_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_mbolitas.Click
        If bolitas < 1 Then

            MsgBox("No se puede continuar restando porque el valor es de 0", MsgBoxStyle.Critical)
            numbolitas.Text = bolitas
            bt_mbolitas.Enabled = False
        Else
            bolitas = bolitas - 1
            numbolitas.Text = bolitas
        End If
    End Sub

    Private Sub bt_mpalitos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_mpalitos.Click
        If palitos < 1 Then

            MsgBox("No se puede continuar restando porque el valor es de 0", MsgBoxStyle.Critical)
            numpalitos.Text = palitos
            bt_mpalitos.Enabled = False
        Else
            palitos = palitos - 1
            numpalitos.Text = palitos
        End If
    End Sub

    Private Sub bt_maritos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_maritos.Click
        If aritos < 1 Then

            MsgBox("No se puede continuar restando porque el valor es de 0", MsgBoxStyle.Critical)
            numaritos.Text = aritos
            bt_maritos.Enabled = False
        Else
            aritos = aritos - 1
            numaritos.Text = aritos
        End If
    End Sub

End Class