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

'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()