Crear una nueva venta y que cierra las demas

[R3Z]

Saludos a todos

que alguien porfavor me ayude estoy haciendo un registro basicamente quiero es cuando creo una nueva venta  que cierre los demas  asi sucesivamente. me puede explicar como hacerlo gracias

Código (vbnet) [Seleccionar] Expandir

'Busco en la tabla Productos

        'Instrucción = "Select Estatus From Nominas Where IdEmpleado=Val(" + txtIdEmpleado.Text + ")"
        ' Conexion.Open()
        'Comando = New OleDbCommand(Instrucción, Conexion)
        'LectorEstatús = Comando.ExecuteReader
        ' If LectorEstatús.Read = True Then
        'txtEstatús.Text = LectorEstatús(0)
        'Else
        'txtEstatús.Text = ""

        ' End If
        'Conexion.Close()
        'LectorEstatús.Close()